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CRUPDATE = update the screen’ 
RUPDATE ( ! Update a screen 
pPEnt = *v04-000' ! File: SCRUPDATE.BLI Edit: J8S1080 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 

is AL S RESERVED. 

ie THIS 

ie ONLY 
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SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
i@ THE INFORMATION IN THIS SOFTWARE IS SUBJ * 
ie AND SH out D NOT BE CONSTRUED AS AC « 
is CORPORATION. e 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. . 
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! FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 
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: This module does a screen update. 

ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
; MODIFIED BY: 

1-001 - Original. DUS 12-Feb-1981. 7 this module was created by 
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: extracti ng the routine EDT 3c guP ren module SCREEN. 

! 1-008 - Re art ae pee ers. JBS 1 

! I= - - a g TH8e the. F08} test is Valia? ~ ae scrolling backwards. 
Sep-19 
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12 = - Clear "EDT $6 6 RECS. ete scral 4: ‘a 953" 
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ERTESCRUPDATE EDTSSCRUPDATE = update the screen 1b-bep-1944 9}: $3: 8 exet Plies abby :: -0- 4h; Page af 


Rove fhe” debugging. SMB 21-Oct-1982 
vel? e cece, or marking select changes for repaint. BS ibct=1988 
Lify the logic ys. repaints the old Screen. JBS 
wane sure all ? nes of po screen. are mark rene) ° 
purport non=-scrolling-reg vgn, te terminals iss “Bets 
performance problem with deselec ing. JBS ces 982 
Yarch out for deleted Lines when updating the old screen. JBS 24-Oct-1982 
Create UPDATE_LINE §5°33"6 -% sep "89° ancy screen stuff for inserted and 
deleted tines. 
fi scrolling se bs ¢ aa "aslate Line code. SMB 23 70c te 198 
scrolling bug = add more notruncate code. SMB 27- 
f we siete the top Line, make the next line top. JBS 1 Nos-1982 
boat ose Y~ Line number i te gf toetat but need not rebuild 
he perese data pase: JBS 
Add the call to EDTSSFIX WROTRUNC “i *Ot-Nov-198 2 
Fix : Beebe +14 +t ha up 0.8. a - $82 screen. JBS 02-Nov-1982 
peed up deselectin 
Rearrange select renee proces sing: _ 10-Nov-1982 
Watch out for deleting the last line of th screen, JBS 11-Nov-1982 
Recover from running out of memory. JBS 15- 
Fix bug with cuts on "Sst teracn l. she. ; =Nov=1982 
Fix notruncate bugs. SMB 198 
Worry about deleted Lines. JBS "23-Nov -19 Se 
Make a few efficiency iaprovenents. vey 0 tae 
Add two paramaters to the SC_LNINS routine 
Change cereynes on of distange to select mR mee 0 
When scrolling down, if we do not have ed out of 
rase the Line that irotta have gcrot led out view. ms 14-Dec-1982 
Fix small bugs with eeneerty gondit ti fons, 0-Dec-198 
Remove the edit buffer. 
Do less repe ainting on select 
Add a missing dotvin edit 1-040. yBS 
Collapse inserts and levee together. JBS 28- 1 
3 . more TOP logic, to recover from rebuilds better. JBS 29-Dec-1982 
a bug that caused yanecessary rebuild ng n ge ba ee ATE pose 185 7Ragec~1982 
Rod fy seeting or sere) Ling b std sor ons for at iple inserts. mB 30-Dec-1 
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Fis bugs teerepuces in gait He senet9 

Bug fixes fo Boy ing ng window’ ‘oblens i wba. SMB 14-Jan-1983 

Worry gbout doloe ng the only line in the buffer. JBS 1B-Janci98 

Fix painti ng select regions on continuation Lines. JBS 19-Jan-1983 

Be more cautious about using the old cursor Line eit r areb q d. JBS 20-Jan-1983 
x gcrpee ng greorens or NOSCROLL term mets. | ¥ -Ja - 

Repair backwards scrolling bug introcured bye ait ¢- 6-Jan-1983 

We were updating the scre ° won of the esti ng ie ned: 
Lid My reset the screen et ow the current position, and bd we 
t jump to, rather hy sero lL to, the new position. In ng 
the new pos tion we should not assume that the screen is st te “erased. JBS 28-Jan-1983 

Fix unreversing of packyers ote by ree +e JBS 28-Jan-1 

Fix VT52 erase to one of creen bu h messages. SMB 01-Feb-1983 

Avoid xgess repainting after a eu that 188 Be-har=19 as age boundry. JBS 25-Feb-1983 
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screen has just been graced ge if the (former) select buffer is not 
on the screen. J95 21-Mar-1983 
1-062 = Try te improve performance by sk igping over code not needed 
in simple cases. JBS 05-Apr-19 
1-063 - We must mark all Lines off the gcreen for repaint if any scrolling 
may be needed B cause ene motion may be done by jumping to the 
new area. JBS 06-Apr-198 
1-064 = Add LOAD entry point so we can overlay the notruncate code ageines 
this module, and laproye the scrolling heur stics. S 18-Apr-1983 
1-065 - pont reference an une! ned variable, JBS 21-Apr-19 
Fix deleting the top line when a previous line exists. JBS 29-Apr-1983 
= Fix message Line hend! ine on non-s rely neoregion terminals. JB aan 
: - Fix repainting an inserted Line which is followed by a deleted line. JBS 
= Handle the message bing corr y on a none-scrolling terminal when deletin 
ne text Li JBS 06-May- 
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1-071 = More work on scrolling efficiency. JBS 10-May-1983 
1-072 = Don't set the scrolling region so often. JBS 11-May-1983 

75 = Paint the selected area correctly even if_the cur gr is moved after the select 
and before the screen is updated. JBS 17-May-1 
1-074 = Improve performance when inserting a line in a buffer smaller than 

f e screen size. JBS Lie te 
- Fix a problem with Lines moving into the message area on non-scrolling terminals. JBs 18-May-1983 

| - Avoid a timing problem in VT52s by not doing reverse scrolls so fast. JBS ru; 
-077 - Improve por rermence when deleting Lines on gg ee feratnets. JBS 19-May-1983 
37 = Watch out for los ng EDTSSA_CSR_SCRPTR. JBS neg 8 
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080 - Mark Lines added to the screen data base as wedi tie rather than inserted, since 
they do not come between two existing lines. JBS 01-Jun-1983 
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Set the scrolling region 
Insert a record into the screen data base 
Output a literal string 
Find the current screen pointer 
Output the format buffer to the screen 
Replace a modified cine in the work file 
pareve’ tee the screen 
ompute the cursor position 
Pos on the cursor 
Erase the screen 
a record in the work file relative to the current record 
efresh a screen Line 
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S$RPL~ CHG DLN. ° 
JINIT 
~EPuESPos NOVALUE, 

CSIF : NOVALUE, 
RAALL : “NOVALUE, 
LN, ! Move t 
« : NOVALUE , 
NONR VID : NOVALUE, Put the screen in sorect video mode 
Mark some Lines in the screen oot base for repaint 
Enable or disable autore epeek 
Fix screen data base in NOTRUNCATE mode 


NOVALUE , 
UNC “NOOVERLAY : NOVALUE; 
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E UPDATE EDTSSCRUPDATE = update the screen Sep-1984 3: AX-11 Bliss-32 V4.0-74 Page 7 
bib EDrsese UPD - update the screen 1e- Sen 1984 9}: 3 ‘48 eT. SReUStRUPOATE “OL 144 . (3) 
: 398 8 a A -p0r -SCRPTR : REF SCREENLINE, | | Address of bottom screen Line : 1 
# TERA gee 5 U.soce. asta tne tee : 
; 0¢ 7 ae “SERPIR. REF SCREEN_LINE, | EOB screen pointer : 
3 $7 u 42 GC. ser Site ye poncsere ¢ s the screen has been mangled +4 
; * ° ! Mess ; 
; 305 75 SBE By ~LN_BUF : Startof Li line buffer : } 
: 306 i: EDTSSA-CSR_SCRPTR : REF SCREEN_LINE, | Current cursor Line screen info : 
3; 7 EDTSSA_CUR_SCRPTR : REF SCREEN-LINE, ! Current workfile Line screen pointer . 4 
: 09 ig EBISEA“ti Che REF LAW BrOree enn Boin ot ie oth tay bag work file 33 
: 310 0 EDT$$72E08_LN, oe i Special structure for CE0B) {ine 31 
: 311 1 EDTS$S$A_SCR-BUF_: REF TBCB_BLOCK, i Current screen buffer 2] 
; \¢ ¢ EDTSS$A_FST-SCRPTR : REF SCREEN_LINE i First screen Line info address : : 
s 5 EDTSS$A_TOP_SCRPTR : REF SCREEN_LINE ! Top screen line info addres 2 
; 314 4 EDTSSL_CUR-SCRLN : LN_BLOCK, ! Current screen Line record. number : 
ae 5 EDTS$G_CS_CHNO, ' character position of cursor 31 
3 18 4] EDT$$G_CS_OLDCHNO, ! Previous character position of cursor : 1 
3 4 3 ep TSS se tN: LN_BLOCK, record number of cursor Line : : 
3 , ! current cursor Line 3 
: 319 tt: EDT$$G_CUR_COL, ' current cursor column : 1 
; 20 0890 EDT$$G_LN_NO i current Line number. ; 1 
: 32) 0891 EDTSSA_ SEC -Pos, ! select character position “ ; 
7. ns ESTaaiceeL-Bur, UNBLOCK | eee Buite? : 
: 324 0894 EDTSSL_ “TOP"LN : LN_B i Line number of enforced top Line. : 1 
> 325 0895 EDTSSA_CUR-BUF : REF Tacé BLOCK, i The current buffer tbcb. 7. 
: 359 0897 EPTSSS SER LMS, iN tanta taetty . i 
: 28 0898 pptsse- =S$CLL BOT. Botton {in Line for serolting down : } 
; 39 3300 EDTSSA_LN_ TR, i Current hve pointer. 31 
; 331 901 EDT$$G_T1- scr ROLL i 7 = we have scrolling region 3% 
; 332 44 EDTSS$G_RETS INSERTED, i Number of records inserted since the last screen update :] 
: a $90? EDT Sea afst AV LN : REF SCREEN_LINE, ist of available screen Line data blocks st 
; 3 05 EDTSS$G_MEM_ ent i Number of Lines in the screen data base 3 
: p EDT$$G_B0T NE ' ALL Lines below this one have been erased 51 
: 337 90 EDTS$$G_TOP— “hECNO ' Record number of top Line : 1 
; 338 4 EDTS$G_ANY “CHANGES, ! 1 = an edit has been neds 31 
3; 339 90 EDT$$G_REVID ' 1 = screen is in reverse video 3 7 
3 ? 4 EDTS$$G “ASCE LE: ! 1 = there is a message in the message area : : 
; 91 OCA :1 
3 i$ 318 . SCROLLING_NEEDED, : 0 = no scrolling needed i] 
i 323 318 TEMP LINE : LN_BLOCK | Yous thee cuter ee 7 
; 6 916 TOP_BISP, == ° i Top Line A a » from current 31 
7: 34 91 DIR, ' Direction of FoF ton since last screen update 31 
$ 8 4 | SCLL_NUM, ' Scroll Line 3 1 
3 9 91 TOP_SET, ! Top record Bhs set 3 1 
: 350 920 DISP ! Displacement from cursor screen Line 3 1 
3 33) 921 ABOvE , ' Number of Lines above current 3 | 
$ 36 9 ¢ BUILD_SCR ' Flag which says rebuild screen 3 | 
. 4 
; 35 9 SCRPTR : REF SCREEN_LINE, i address of a current screen line buffer : 
3 354 924 CURSOR_POS, ! Column position of cursor 3 1 
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at ite nah ny IERIE USERS A TAMGHBAERT 
; 


CURSOR_LINE, Number of screen Lines before cursor. 


BELOW ! No. of screen Lines below cursor Line. 

REC_NO ! Current relative reocrd number 

OLD-TOP_RECNO, ! Rel record number of old top record 
OLD_BOT_RECNO, ' Rel record number of old bottom record 

TOP-RECRO ! Rel record number of new top record 

TOP“SCRPTA : REF SCREEN_LINE, i Address of the top Line on the screen 

ERASE _ ! 1 = we have erased the text pect of the screen 
LNINS VAL ! Value returned by EDTS$SC_LNINS 

ANY_CRANGES; ! 1 = we must scan the screen data base for changes 


1+ 
Make sure we are in normal video if no select range. 
IF ((.EDTS$G_REVID NEQ 0) AND (.EDTSSA_SEL_BUF NEQA .EDTSS$A_CUR_BUF)) THEN EDTSS$SC_NONREVID (); 
‘+ 
! Remember the original character position and relative Line number in 
work file terms. 
EDTS$G_LN_NO = 0; 
EDTS$G_CS_CHNO = .EDTSSA_LN_PTR = EDTS$T_LN_BUF; 
MOVELINE TEDTSSA_CUR_BUF CTBCB_CUR_LINJ, EDTS$$L_CS_LN); 
¥ EDTSSRPL_CHGDLN 7); 
i If we are in NOTRUNCATE mode, make sure Lines get adjusted due to carry from 
or borrow to earlier Lines. 
od 2 NOT .EDT$$G_TRUN) 
BEGIN 
IF .EDTS$G_ANY_CHANGES THEN EDTSSFIX_NOTRUNC_NOOVERLAY (); 
END; 
SCRPTR = 0; 
Compute the cursor position. We will recompute if we must rebuild the screen data base. 


EDTS$SC_CPUCSPOS (CURSOR_LINE, CURSOR_POS); 
CURSOR_CINE = .EDT$$G_CS“LNO; 


i If the screen has been mangled, or we have changed buffers or deleted or inserted a lot of Lines, 
: erase the screen and repaint all the Lines. 
IF (¢(, EDTS$G_SCR_CHGD NEQ 0) OR (.EDTSS$A_SCR_ BUF NEQA .EDTSSA_CUR_BUF) OR ! 
(.EDTS$G_RECS_INSERTED GTR (2*.EDT$$G_SCR_LNS))) 
ri BEGIN 
Don't initialize the terminal unless it has been requested. 
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ERASE_ALL = 0; 


14 
Determine whether the screen structure has to be rebuilt. 


BUILD_SCR = .EDTSS$G_SCR_REBUILD; 


SSSSaR Tete seSPaese 


; IF (.EDTSSG_SCR_CHGD EQL 2) THEN EDTSSSC_INIT (); | 
; '4 3 | 
: ; Erase the screen. : 
; EDT$$G_CS_LNO = 0; 3] 
3 EDTSSSC_ERAALL (); 3] 
; EDTS$G BOT LINE = 0; 3] 
; ERASE_ALL = 1; : 
; 7] 
: $1 
: 3 1 
3 | 
; | 
; 3 1 
Py : 
3 ; : If the current position is not in the screen data base, rebuild. ; 
5 3¢ 1 3] 
; 1 IF ( NOT .BUILD_SCR) eB 
: 1 THEN : 1 
; 5 1 BEGIN 3 | 
; 36 1 6 EDTS$SA_CUR_SCRPTR = EDTSS$SC_FNDREC ((.EDTS$SA_LN_PTR - EDTSST_LN_BUF), DISP); : 
: 438 1008 IF ((.EDTS$A_CUR_SCRPTR EQLA 0) OR (.EDTSSA_TOP_SCRPTR EQLA 0) ! 3 
; 3 1009 4 OR (.EDTS$A_CSR_SCRPTR EQLA 0)) ; 
> 441 1011 BUILD_SCR = 1; 71 
; 44 1318 S| 
; 44 101 END; a 
3 $46 1014 $1 
3 6445 1015 '¢ 3s 1 
; rr | 1918 ; Compute whether or not we must scan the screen data base for any changes. : | 
: 448 1018 |. ANY CHANGES = .EDTSSG_ANY_ CHANGES; ; 
: 450 1020 i Compute the direction of motion since the last screen update. : 1 
3; 451 1021 ! If we have changed buffers, assume forward. 2s 
i> it : 
; 434 10 4 4 ((LINNOEQL (EDTSSL_LNO_EMPTY, EDTSS$L_CUR_SCRLN)) OR (.EDTSSA_SCR_BUF NEQA .EDTS$A_CUR_BUF )) 3 
; 436 19 6 DIR = 1 3 
3; «645 10 ELS 3] 
; $38 19 $ DIR = CMPLNO (EDTSS$L_CS_LN, EDTS$L_CUR_SCRLN); : } 
: 460 19 0 2 !+ 3 
3 ret : : Compute whether or not any scrolling may be necessary. | 
: 46 1 : 2 
; 6646 1034 4 IF ((. EDT$$G_RECS_INSERTED NEQ 0) : 3 | 
3; 465 1035 4 OR (.EDTSSA_CSR_SCRPTR NEQA .EDTSSA_CUR_SCRPTR) ! is 
; 4 1 OR (NOT LIANOEGL (EDTS$L_TOP_LN, EDTS$C_LNO_EMPTY)) | 31 
; 46 1 OR (.DIR NEQ 0)) : 

: 468 1038 THEN | 3 

| 


F | 
CRUPDATE = update the screen 16-5 -1984 01:43: AX-11 Bliss-32 V4.0-74 P 0 
Sat IE aphete the sttoen ease b= 1882 FSiSzi2S | HENGE Oh Lssc 3s ve -Or ree age (3) 


ease Bt ; 


; ‘ 9 } 3 SCROLLING _NEEDED = 1 ; ; 
; if SCROLLING NEEDED = 0; : | 
: 47 1 IF ( NOT .BUILD_SCR) 71 
3 474 1044 THEN : 1] 
3 479 5 BEGIN : 
: rhe 1 “3 i IF ((,EDTS$A_SEL_BUF NEQA .EDTS$A_OLD.SEL) AND (.EDT$$G_TI_TYP EQL TERM_VT100) AND ' : 
; 478 1 : 4 ((EDTSS$A_SCR_BUF EQLA .EDTSSA_OLD_SEL) OR (-EDTSSA-SCR_BUF EGLA .EDTSSA_SEL_BUF)) AND ! : 1 
; 4 1 ( NOT .ERASE_ALL)) 3 1 
; 4 1 29 THEN : 
: 2 1 : 2 te BEGIN : 
: 4 1988 4 We have started or ended a selection. Repaint all selected or formerly selected Lines. | 
: 485 1988 . 31 
3; 4 1 2$ 4 LOCAL 3 1 
: 4 1057 4 SELDIR 31 
: 4 1 38 4 REC_OFFSET, 31 
3 § 1059 4 OUR-LINE : LN_BLOCK, : 1 
: 4 1060 4 OUR~CHNO 31 
i 491 1061 4 OUR-SCRPTR : REF SCREEN_LINE; : | 
: 49 1908 4 '¢ 31 
; 494 1064 4 ! If this is a deselection we must repaint from the old Line to the select line. : 1 
3 rhe 1066 ? If this is a selection we must repaint from the current Line to the select Line. : | 
: 497 1067 4 :1 
: 498 1068 5 IF (.EDTSSA_SEL_BUF EQLA 0) 31 
: $86 i990 8 THEN BEGIN - 
; 264 1071 MOVELINE (EDT$$L_CUR_SCRLN, OUR_LINE); :1 
; 208 1078 LINE (EDT$$L_CUR_SCRLN, EDTSSL cs_tn, TEMP_LINE); 71 
3 30 107 REC_OFFSET = .(TEMP-LINE CLN_LOJ)20, 16, 1>; 31 
: 504 1074 R-CHNO = .EDTS$G_CS_OLDCHNO; 71 
; 30g 1075 OUR-SCRPTR = .EDTSSA_CSR_SCRPTR; 3 
; 09 1099 4 ELSE 31 
3 308 1078 BEGIN 31 
; 509 107 MOVELINE (EDT$S$L_CS_LN, OUR_LINE); 7 1 
: 510 1080 REC_OFFSET = 0; : 1 
: 511 1081 OUR“CHNO = .EDT$$G_CS_CHNO; 31 
; g 108¢ OURSCRPTR = .EDTSSA_CUR_SCRPTR; 31 
: ale lope —_ : 
: HE 1085 4 SUBLINE (OUR_LINE, EDTSS$L_SEL_LN, TEMP_LINE); 3 
; 1H e? 3 IF (¢.TEMP_LINE CLN_H1) AND %X'8000") NEQ 0) 3 
: i8 1089 4 SELDIR = -1 24 
: 380 109, aan : 
; é 1092 4 IF (.TEMP_LINE CLN_LOJ NEQU 0) THEN SELDIR = 1 ELSE SELDIR = 0; : 
; 3 4 1934 4 REC_NO = .(TEMP_LINE CLN_LOJ)<O, 16, 1> = .REC_OFFSET;: 31 
> 525 1095 4 EDTS$SC_MOVTOLN™(.REC_NOJ; 7 
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SCRPTR = EDTSSSC_FNDREC (.EDTSSA_SEL_POS - EDTSST_LN_BUF, DISP); 
IF _(.SCRPTR EQLA 0) 
BUILD_SCR = 1 
ELSE 
BEGIN 
IF (.SELDIR EQL 0) 
THEN 
BEGIN 
IF ((.EDTS$SA_SEL_POS - EDTS$T_LN_BUF) LSS .OUR_CHNO) 
EDTSSSC_REPAINT (.SCRPTR 


f 


RP 
-EDTS A_SEL_POS = EDT$$T_LN_BUF - sSCAPTR, CSCR_ CHR_FROM], 
R_CHRO -".OUR_SCRPTR CSCR_CHR_FROM] - 1, 0)” 


S3333 


SELESRENLS 


ELS 
IF ((.EDTSSA_SEL_POS = EDTSST_LN_BUF) GTR .OUR_CHNO) $ 
EDTSSSC_REPAINT (. OUR. SCRPTR, : 


-$¢ CRPTR. 
.OUR_SCRPTR CSCR_CHR_FROM] 
EDISSA'S SEL _POS = EDTS$T_LN_BUF = .SCRPTR CSCR_ Chik. FROM] - 1, 


ab nt tt tt 
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IF (.SELDIR GTR 0) 
sores REPAINT (.OUR_SCRPTR, | 
HNO = .OUR_ SCRPTR CSCR_CHR_FROM], ' 
~*~ EDISSAS SEL_POS = EDTS$T_LN_BUF = .SCRPTR CSCR_CHR_FROM] - 1, 0) 
IF (.SELDIR LSS 0) 
EDTsss¢ at t. SCRPTR. ' 
SEDTS$A_SEL_POS = EDTSS$T_LN BUF - sSCRPTR, CSCR_CHR_FROM), 
-OUR_CHNO =".OUR_SCRPTR [CSCR_CHR_FROM] - 1, 0)7 


ELSE ~ 
ASSERT (0); 


END; 
ANY_CHANGES = 1; 
END; 


END; 
IF ((€ NOT .BUILD_SCR) AND ( NOT .ERASE_ALL)) 
BEGIN 
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4 IF _((.EDTSSA_SEL_BUF EQLA .EDTS$A_CUR_BUF) AND (.EDTS$G_TI_TYP EQL TERM_VT100)) 


BEGIN 
* 


i The select ron is in the current buffer. Repaint Lines between the previous 
and the curren 


cursor, to be sure they are properly reversed or not. 


PAE SPSS SIISIII 


IF (.DIR LSS 0) 
THEN 


EDTSS$SC REPAINT (.EDTSSA_CUR_SCRPTR 
-EDTS$G_CS_CHNO - .EDTSSA gue 
mes -EDT$$G_CS-OLDCHNO = .EDTSSA_ 


. ae GTR 0) 
EDTS$$SC git (.E 
-EDT$$G_CS_OLDC 
-EDT$$G_CS_CHNO 
ELSE 
4 C-EDTSS6_CS_CHnd LSS .EDTS$$G_CS_OLDCHNO) ! 


EDTSSSC_REPAIN: (.EDTSSA_CUR_SCRPTR, : 
EDTS$SA_CSR_SCRPT : 


Fas 


VFA —OOONOUEW 


oO 
uw 


sEDTSSA CSR_SCRPTR 
SERPTR CSCR_CHR FROM) 
TR CSCR_CHR_FR 


ra 


CSR_SCRP 


_CSR_SCRPTR, .EDTSS 
sEDTSSA CSR_SCRPTR 
DI$$A_CUR_SCRPTR CS 


See R eRe sESs 


-EDT$$G_CS_CHNO - .EDTS$A_CUR_SCRPTR CSCR_CHR_FROMI, 
-EDT$$G~CS-OLDCHNO - .EDTSSA_CSR_SCRPTR CSCR_CHR_FROM) - 1, 0) 
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10 
11 
i ELSE 
14 IF (.EDT$$G_CS_CHNO GTR .EDT$$G_CS_OLDCHNO) 
1g EDTS$SSC_REPAINT (.EDTS$A_CSR_SCRPTR, 
1 -EDTSSA_CUR_SCRPTR, T 
18 [EDT$$G_CS_OLDCHNO - .EDTS$A_CSR_SCRPTR CSCR_CHR_FROM) 
19 -EDT$$G_CS-CHNO = .EDT$$A_CUR_SCRPTR CSCR_CHR_FROM) - 1, 0); 
1 19 ANY_CHANGES = 1; 
; 19 END? 
19 
4 19 END; 
5 19 = 
$ 1 Mark all Lines off the screen for repaint. 
1 . 


. NOT .BUILD_SCR) 
BEGIN 
'¢ 


! If the screen has been erased we must repaint e erventag otherwise only Lines 

! off the screen will need to be repainted. Marking the ines off the screen for 
! repaint removes the deleted Lines from the screen data base, to avoid confusing 
; our count of the number of Lines above and below the current Lin 
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-Sep- E.BLI; 


If ERASE _ALL 
WEN cry 
BYSSSC_REPAINT (,EDTSSA_FST_SCRPTR, .EDTSSA_LST_SCRPTR, 0, 255, 1); 
ANY_CHANGES = 1; 
END 
ELSE 
BEGIN 


IF_.SCROLLING_NEEDED 
THEN 


BEGIN 

SCRPTR = .EDTSSA_TOP_SCRPTR CSCR_PRV_LINE); 

IF (.SCRPTR NEQA 0) THEN EDTSSSC_REPAINT (.EDTSSA_FST_SCRPTR, .SCRPTR, 0, 255, 1); 
IF (.EDTSSA_BOT_SCRPTR NEQA 0) 

THEN 


BEGIN 
SCRPTR = .EDTSSA_BOT_SCRPTR CSCR_NXT_LINE); 
IF (.SCRPTR NEQA 0) THEN EDTSSSC_REPAINT (.SCRPTR, .EDTSSA_LST_SCRPTR, 0, 255, 1); 
END; 
END; 
END; 
END; 
14 
! If we have lost our record of the top of the screen we must rebuild. 
IF (.EDTSSA_TOP_SCRPTR EQLA 0) THEN BUILD_SCR = 1; 
IF ( NOT .BUILD_SCR) 
* BEGIN 
i Find the relative record number of the old cursor Line. 
! We must be careful of deleted lines. The convention is that a deleted Line 
' has the record number of the next lower Line. This prevents deleted 
! Lines before record zero from having negative absolute record numbers. 


le 
SCRPTR = ,EDTSS$A_CUR_SCRPTR; 
REC_NO = 0; 


CASE .DIR FROM -1 TO 1 OF 
SET 


C1] : 
BEGIN 
'¢ 


The new Line is after the old. We must move back in the work file. 
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EDTSSCRUPDATE EDTSSCRUPDATE - update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 P 4 EO! 
042000 EDTSESC COPD = undone the srveen VexgeertGRe Vb:Sz:2$ PANS TL BU issc3e Very age Of v0 
97 
BEGIN 
IF ((.SCRPTR CSCR_LINE_IDX) EOL 0) OR ' 
; (CLSCRPTR CSCR_EDIT_FLAGSJ AND SCR_EDIT_DELLN) NEQ 0)) 
BEGIN 
4 EGI 
Loc 


*PREV_SCRPTR : REF SCREEN_LINE; 
PREV_SCRPTR = .SCRPTR CSCR_PRV_LINE); 
4 (.PREV_SCRPTR NEQA 0) 
BEGIN 
=a" CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) 
REC_NO = .REC_NO - 1; 
END; 
END; 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
UNTIL ((.SCRPTR EQLA .EDTSSA_CSR_SCRPTR) OR (.SCRPTR EQLA 0)); 
END; 
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(0J : 
BEGIN 
'¢ 


: We are positioned correctly in the work file. 
: SCRPTR = .EDTSSA_CSR_SCRPTR; 
END; 
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BEGIN 
'e 
: The new Line is before the old. We must move forward in the work file. 
dO 
BEGIN 


LOCAL 
NEXT_SCRPTR : REF SCREEN_LINE; 


NEXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); 
IF (.NEXT_SCRPTR NEQA 0) 
THEN 

BEGIN 
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EDTSSCRUPDATE DISSCRUPDATE = update the screen 1b-3¢ 1984 01:43: AX-11 Bliss-32 V4.0-74 Page 15 

704-000 EDTSaS¢ UPD update the screen 1 =30071 382 93:52:28 ODT SREISCRUPBAYE OL I . | 

; 4 1 3 | 
: , 5 1 g IF (((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) AND ! | 
: f $ 1 $ ((.NEXT_SCRPTR’CESCR-LINE_IDXJ gal 0) OR : | 
: fg | THENS CO NEXTASCRPTR SCRIEDIT-FLAGS] AND SCR_EDIT_DELLN) NEQ 0))) +s 
: 183 : 3 REC_NO = .REC_NO + 1; | 
: 61 | 1 END; : 
; 768 i $ SCRPTR = .SCRPTR CSCR_NXT_LINEJ; : | 
; 069 1 5 4 UNTIL ((.SCRPTR EQLA .EDTSSA_CSR_SCRPTR) OR (.SCRPTR EQLA 0)); : 
; 26 ; END; | 
; 769 1339 COUTRANGE) : 71 
: 770 1340 ASSERT (0); 3 1 
: 77 1308 $1 31 
: 774 1344 ! If we couldn't find it, rebuild the screen. 3 1 
: 079 : 5 3!- : 
; oe ! ? IF ((.SCRPTR NEQA .EDTSSA_CSR_SCRPTR) OR (.SCRPTR EQLA 0)) THEN BUILD_SCR = 1; : 
: 779 1349 END; . 
; ret i 29 '¢ 71 
; 782 1 25 i Now find the relative record number of the old top line. We can use the value 2] 
; 783 135 ! from Last time if no scrolling will be needed. ; ! 
Ro OR EE : 
; , 1356 IF ( NOT .BUILD_SCR) i] 
; 788 1358 BEGIN i | 
> 790 1360 4 IF _( NOT .SCROLLING_NEEDED) 1 
; 791 1361 THEN 2] 
; 79 1 ¢ OLD_TOP_RECNO = .EDT$$G_TOP_RECNO : | 
; 79 1 ELSE 3 
; a! ; 4 BEGIN : 
; 196 1 66 4 WHILE ((.SCRPTR NEQA .EDTSSA_TOP_SCRPTR) AND (.SCRPTR NEQA 0)) DO | 
: 097 1367 3 BEGIN | 
; 799 1 3 6 IF ((,SCRPTR CSCR_LINE_IDX] EQL 0) OR ! 2] 
: 300 i 20 g a yi Cc SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0)) : 
; $09 1372 BEGIN ‘| 
rj 137 6 e 
; 804 1374 6 LOCAL | 
; 805 1373 6 PREV_SCRPTR : REF SCREEN_LINE; 2 | 
; O° 1 7 é PREV_SCRPTR = .SCRPTR CSCR_iRV_LINE); 2 | 
; 09 137 IF (.PREV_SCRPTR NEQA 0) 3 | 
; 810 1380 6 THEN ; 


seen Re | f 
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E 


BEGIN 

ta create CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) 
REC_NO = .REC_NO = 1; 

END; 


NOU 


END; 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
END; 


- OLD_TOP_RECNO = .REC_NO; 
If we didn't find it, rebuild the screen data base. 


IF (.SCRPTR NEQA .EDTS$SA_TOP_SCRPTR) THEN BUILD_SCR = 1; 
END; 
END; 
an eS OR .SCROLLING_NEEDED) AND ( NOT .BUILD_SCR)) 


+ 
! Update the Lines which are on the screen. This is needed even if no Lines have been changed if 
we must do scrolling, in order to compute the relative record number of the bottom Line. 


SESeSrensssesestass 


PUPP EE BS BE AAI AI AINA AINA AAI PI PIPPI EPI HAIAB BBB BEEFPNMNMNO ANNONA 


1 

BEGIN 

1 CAL 

1 UPDATE_DONE 

1 ANOTH : 

1 BEG_SCRPTR : REF SCREEN_LINE, 
1 INS COUNT 

PREQ_INS_COUNT; 


'¢ 
! Check for regions containing an equal number of inserted and deleted lines. 
! Avoid double scrolling (and scrolling Lines off the screen then back on) by 
! changing all inserted Lines in such regions into modified lines, and freeing 
the deleted Lines. 
IF (.EDTS$G_RECS_INSERTED NEQ 0) 
THEN 
BEGIN 
dO 
BEGIN 
ANOTHER PASS = 0; 
NS_COUNT = 0; 
SCRPTR = .EDT$SA_TOP_SCRPTR; 
DO 
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YUPD “= update the screen” 1e-35p=1986 92:82:48 HeOT Sal} $ERUPDAvE ou 7 eet 

BEG] 
UPDATE DONE = 0; 
PREV_INS_COUNT = .INS_COUNT; 
IF ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_INSLN) NEQ 0) THEN INS_COUNT = .INS_COUNT + 1 
IF ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) THEN INS_COUNT = .INS_COUNT = 1 
IF ((.INS_COUNT NEQ 0) AND (.PREV_INS_COUNT EQL 0)) THEN BEG_SCRPTR = .SCRPTR; 
a ((.INS_COUNT EQL 0) AND (.PREV_INS_COUNT NEQ 0)) 

te BEGIN 

‘ Move the top Line down, if it was deleted. 


oe | 


"no 
om 


If _(.BEG_SCRPTR EQLA .EDTSSA_TOP_SCRPTR) 


WHILE ((, ie ih sy TOP_SCRPTR CSCR est FLAGS] AND SC 
EDTSSA_TOP_SCRPTR = .EDTSS$A_TOP_SCRPTR CSCR_NX 


DELLN) NEQ 0) DO 
t+ 

: Free deleted Lines and mark all other Lines to be repainted. 

eprsesc REPAINT (.BEG_SCRPTR, .SCRPTR, 0, 255, 

A KNOTH En Ones NES 4 


ELSE 
BEGIN 


IF (.SCRPTR EQLA .EDTS$A_BOT_SCRPTR) OR (.SCRPTR CSCR_NXT_LINE] EQLA 0) 
UPDATE_DONE = 1 

ELSE 
SCRPTR = .SCRPTR CSCR_NXT_LINE); 


S 


SSeS SeaesS3 


END 
UNTIL .UPDATE_DONE; 


END 
UNTIL ( NOT .ANOTHER_PASS); 


'¢ 
i If more than 2/3 of the Lines on the screen are to be deleted or inserted, 
: just repaint the screen; repainting is Likely to be faster. 
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IF (ABS (.INS_COUNT) GTR ((2*.EDT$$G_SCR_LNS)/3)) THEN BUILD_SCR = 1; 
END; 
END; 
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12 
TSSCRUPDATE = update the screen 1heSe -1984 01:43: AX-11 Bliss-32 V4.0-74 p 
1$8S¢ UPD - update the screen 12286821382 93:32:28 Hest SRE SCRUPOATE OL 124 _ BB 
95 
iF 6 {Ait CHAS OR .SCROLLING_NEEDED) AND ( NOT .BUILD_SCR)) 
i BEGIN 
i Now repaint all the Lines so marked, and do any residual inserts and deletes on the screen. 


OOoooe 


MEWN OOOO 


LOCAL 
STATUS } eer or Delete status 
ANOTHER PASS, ! 1 = make another pass over the data structure 
UPDATE BONE, ! 1 = this pass is complete 
ANY_INS_DE ! 1 = some inserts or deletes done owning this pass 
INS-DEL DONE; ! 1 = all inserts and deletes are complete 


1+ 
} If no records were inserted or deleted then no screen Lines should need to be inserted or deleted. 


INS_DEL_DONE = (.EDTSS$G_RECS_INSERTED EQL 0); 
dO 


MPwn—O 


O00 
Wiss & & 
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BEGIN 
ANOTHER_PASS = 0; 
ANY_INS-DEL = 0; 

REC“NO = .OLD_TOP_RECNO; 
SCRPTR = .EDTSSA_TOP_SCRPTR; 


951 EDT$$G_CS_LNO = 0; 
95 
954 BEGIN 
929 UPDATE_DONE = 0; 
957 IF ((.SCRPTR_CSCR_EDIT_FLAGS] AND ! 
328 - y DcReEDIT_AODTFY OR SCR_EDIT_INSLN OR SCR_EDIT_DELLN)) NEQ 0) 
960 BEGIN 
961 '+ 
r 9 
368 29 this a deleted Line? 
965 IF ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) 
966 THEN 
368 ASSERT ( NOT .INS_DEL_DONE) 
369 STATUS = DELETE_LINE C.SCRPTR, OLD_TOP_RECNO); 


ANY_INS_DEL = 1; 
ASSERT T NOT .STATUS); 


ELSE 


a ee 2 ee 8 


NOUESWN Oo 


SNS 


=S3e 


ASSERT ( NOT .INS_DEL_DONE); 
STATUS = INSERT_LINE C.SCRPTR, .REC_NO, OLD_TOP_RECNO); 
ANY_INS_DEL = 13 
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A atin CSCR_EDIT_FLAGS] AND SCR_EDIT_INSLN) NEQ 0) 


M12 
EDTSSCRUPDATE  EDTSSCRUPDATE = update the screen 16-Sep-1984 243: AX-11 Bliss-32 V4.0-74 Page 19 ED] 
704-000 EDTSES¢ UPD - update the screen 1 398-1382 93:32:25 EDT. SRCISCRUPDATE .BLI; (3) vOé 
: oee 1 ! If INSERT LINE returns true, repaint the current Line. INSERT_LINE will have created a blank ; 1 
3 98 i line for Tt. : 
; 985 1555 :] 
; 9 1 5 7 IF .STATUS : 1 
; 9 1 7 THEN 7] 
; 9 1 § BEGIN ; 1 
; 989 1 ASSERT (EDTS$S$SC_MOVTOLN (.REC_NO)); 2] 
; 990 1560 EDTSS$SC_REPAINT (.SCRPTR, .SCRPTR, 0, 255, 1); “ : | 
; 991 1561 EDTSSSC-RFRELN (.SCRPTR, 1); : | 
3 335 1 $6 END; : 
; 99 1365 7 2 
; 994 1 END ; 
> 995 1565 8 ELSE i] 
: 996 1366 BEGIN : 1 
3; 99 136 7! > 
; 998 1568 7 ! This Line is marked as modified. If all the processing from Lines inserted and deleted is complete : 1 
; 999 1369 7 ' repaint this Line. : 1 
3 1000 1570 7 i- : | 
3; 1001 1571 7 S| 
: 1008 1378 7 IF_.INS_DEL_DONE } 
: 100 1573 7 THEN 3 | 
+ 1004 1574 8 BEGIN : 1 
: 1005 1575 8 ASSERT (EDT$$SC_MOVTOLN (.REC_NO)); e 
> 1006 1376 8 EDTS$SC_RFRELN (.SCRPTR, .ERASE_ALL); : 1 
: 1007 157 END; : | 
: 1008 1578 7 3 | 
: 1009 1579 7 STATUS = 1; 7] 
+ 1010 1580 6 END; 21 
3 1011 138] $ 3 | 
; 101g 15 é IF ( NOT .STATUS) 21 
: 101 1583 6 THEN 3 1 
: 1014 1584 7 BEGIN 3 1 
3 1015 1585 7 UPDATE_DONE = 1; 3 1 
; 1016 1386 7 ANOTHER_PASS = 1; : 1 
: 101 1587 6 END; : 1 
: 1018 1588 : 1 
: 1019 1589 END; 2] 
: 1020 1590 3 | 
: 1021 1591 6 IF ( NOT .UPDATE_DONE) . 
3 10 ¢ 1298 THEN 3 | 
: 10 1593 6 BEGIN 3 | 
; 19 4 139% é EDT$$G_CS_LNO = .EDTS$G_CS_LNO + 1; .) 
; 18 6 1336 : IF (.EDTS$G_CS_LNO EQL .EDT$$G_SCR_LNS) a. 
: 1058 i298 THEN SDATE.DONE = 1 
3 1 9 1399 § i 
3 10 1600 BEGIN 
: 1031 1601 7 
3 1038 16 ¢ 8 IF (.SCRPTR CSCR_NXT_LINE) EQLA 0) 
: 1 16 THEN 
: 10 16 BEGIN 
3; 1035 1605 '¢ 
: 10 16 !' We have run out of screen data base, but we have not yet filled the screen. If we 
A + i eit : are at CEOB)] that is OK, otherwise extend the screen data base. 


ELRRLLELLLS 


WR “OC OVONAULSWUN “OC OONOUESWN—O”D 


win 


OOoCooooooo 
MMMM 


SESE 


ae 


SESEE 
OOd NOUS WO OONAULS WN "OVDOnou 


& 


SN NNN SNS 
DONOULSWN OO 


CSOOSOSOOCOOOOOSOCO 
2 Go. 09.000 
wn 


ww 
DIAM MVIVMIVIVIVIW 


BESSESEEF 


ek ee a a a a kk ek td a a = = = = — = 2s = = = 2 a = 2 Ss 2 SS SS os os SS SS 


So 
~o 
wn 
o 
w 


UPD 


+ 


if that is possible. 
erased already. 


+ 
! We are not at CEOB). 
: painting the screen. 


RUPDATE = update the screen 
C - update the screen 


We have reached [E0B) before fillin 


N 12 

VexSep-1986 Voidares == Ye 
IF _(.SCRPTR EQLA .EDT$$A_E0B_SCRPTR) 
THEN 


BEGIN 


the screen. This will be fixed by scrolling Later, 
of the screen unless the whole screen has been 


Erase the res 
IF (.EDTS$G_CS_LNO LSS .EDTS$G_BOT_LINE) THEN EDTSS$SC_ERAALL (); 
UPDATE_DONE = 1 


ELSE 
BEGIN 


Add another record to the screen data base, and keep 


REC_NO = .REC_NO + 1; 

ASSERT (EDTS$SC_MOVTOLN (.REC_NO) 

LNINS VAL = EDTSSS¢ LNINS (0, ~EDT$$A_WK_LN CLIN_TEXTJ, 
-EDT$$A_WK_LN CCIN_LENGTH)); 


IF (.LNINS_VAL EQL 0) 


EN 
UPDATE_DONE = 1 
SE 
BEGI 
SCRPTR = .SCRPTR; 
ASSERT (.SCRPTR CSCR_NXT_LINE] NEQA 0); 
SCRPTR = .SCRPTR CSCR_NXT_LINE); 
ASSERT (.SCRPTR CSCR CINEDIDX Eat 0); 
SCRPTR CSCR_EDIT_FLAGS) =~SCR_EDIT_MODIFY; 
END; 
END 
ELSE 
BEGIN 
LOCAL 


NEXT_SCRPTR : REF SCREEN_LINE; 
NEXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); 
IF (.NEXT_SCRPTR NEQA 0) 

BEGIN 


IF (((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) AND ! 
CCNEXT SCRETR"ESCR-LINE IDX FAL 0) OR 
yf rNEXTISCRPTR ESCRIEDIT-FLAGSI AND SCR_EDIT_DELLN) NEQ 0))) 
REC_NO = .REC_NO + 1; 
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END; 
SCRPTR = .SCRPTR CSCR_NXT_LINE); 


lt lt nt elt als elt ls 
Sesessss3333 


SSS 


END 
UNTIL .UPDATE_DONE; 
1+ 
: If we have just been looking for inserts and deletes we must make another pass over the screen data base. 


WN] O OONOULSWN—OOM@ 


IF ( NOT .INS_DEL_DONE) THEN ANOTHER_PASS = 1; 


try et et 2 PN 


Coane 


If there were no inserts or deletes on this pass then the next pass can look for modified Lines. 


PREPARA AAAAAAAAAA AAAS 


BEGIN 
in INS_DEL_DONE = 1; 
! Make sure the scrolling region is normal for the final update pass. 
; EDTS$SC_SETSCLLREG (0, .EDT$$G_SCR_LNS); 


NMPORORORY @ 2 2 a 


END 
UNTIL ( NOT .ANOTHER_PASS); 


EDT$$G_BOT LINE = .EDT$$G_CS_LNO; 
OLD _BOT_RECNO = .REC_NO; 
a EDTS$A_BOT_SCRPTR = <SCRPTR; 


! The screen is no longer erased. ~ 
: Abend subsequent lines must blank out the end of a completely painted Line, 
n 
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3 4 except special cases such as scrolling a Line onto the screen. 
40 10 ERASE_ALL = 0; 

41 711 END; 

$§ ar 

4 71 IF .BUILD_SCR 

44 714 THEN 

45 715 BEGIN 

#6 ay ! 

4 71 ! We must rebuild the screen data base. Put all the screen Line 
48 re ' blocks on the free List. 

$2 Ay, be 

34 731 IF (,EDTSSA_FST_SCRPTR NEQA 0) 

52 722 THEN 
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5 IF ( NOT .ANY_INS_DEL) 
THEN 
4 
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CRUPDATE = update the screen 16-50 4 AX-11 Bliss-32 V4.0-74 e 
$e C_.uPD = update the screen 300-1382 93:33 48 EDT. SRCJSCRUPDATE.BLI; at (3 


BEGIN 
EDTSSA_LST_SCR 
EDTSSA_FST_AVL 


Nu 


EDTSSA_ FST_AVLN; 
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| "AL ign the cursor screen pointer with the current screen pointer. 


4 
4 
ASSERT ceDtsssc _MOVTOLN (.REC NO); 
EDTSSA_SCR_BUF = .EDTSSA fu UR 
MOVELINE (EDTSS$A_CUR_BUF~ TBCB_ cOR LIN], EDT$S$L_CUR_SCRLN); 
IF .BUILD_SCR 
— BEGIN 
EDTSSSC_LNINS (0, EDTSSA_WK_L w Cu TEXT], .EDTSS$A_WK_LN CLIN_LENGTH)); 
EDTSSA_CSR_SCRPTR = .EDTSSA_ FST. CRETR R; 
4 A eee eee EQL 0) ! 
OO ee ee spel = EDTSSSC_FNDREC (.EDT$$G_CS_CHNO, DISP) 
EDTSSA_CUR_SCRPTR = .EDTSSA_CSR_SCRPTR; 
END; 
'¢ 
i when we reach this pains either the old agroen has been updated, if necessary, 
! or we will be rebuilding the screen data bas 
Determine which Line should be at the top -y the screen 
a eee OR .BUILD_SCR) 
BEGIN 


LOCAL 
AT_BOTTOM; 


SCRPTR = .EDTSSA_CUR_SCRPTR; 

RE = 6; 

re ABOVE = 0; 

ic Calculate the in number of Lines above and below ¢he current Line 
. gh 


because we might have to move the cursor. This may cause the screen 
! data structure to be extended. 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the screen Ib-5¢ -1984 01:43: AX-11 Bliss-32 V4.0-74 
100-000 EDTS$5¢ UPD - update the screen 1 300-1382 93:52:28 EDT SROISCRUPDAYE OL I: 
: 121 1780 3 !- 
: 7 ° 5 AT_BOTTOM = 0; 
: 121 17 : ; WHILE ((.BELOW LSS (.EDTS$G_SCR_LNS*2)) AND ( NOT .AT_BOTTOM)) DO 
> 1214 1784 4 BEGIN 
3 1215 1785 4 
: 1 1 17 6 3 IF (.SCRPTR EQLA 0) 
: 184 ieee THEN GIN 
71 5 1789 ASSERT (EDTS$SC MOVTOLN ( .REC NO? }j 
; 1 9 17 9 LNINS_VAL = EDTSSSC_LNINS (0, ~EDTS$A_WK_LN CLIN_TEXT], .EDTSS$A_WK_LN CLIN_LENGTH)); 
[1 é 1786 IF (.LNINS_VAL EQL 0) 
31 179 
ig is oF sane. 
214 6 1796 6 BEGIN 
:1 179 6 BELOW = .BELOW + .LNINS_VAL; 
> 1228 1798 REC_NO = .REC_NO + 1; 
: 1229 1799 $ 
:1 1800 IF (.EDTSSA_WK_LN EQLA EDT$$Z_E0B_LN) 
> 1231 1801 $ THEN 
: 1 3¢ 1 0¢ BEGIN 
3 123 1803 7 EDT$$A_EOB_SCRPTR = .EDTSS$A_LST_SCRPTR; 
: 1234 Ise 7 AT_BOTTOM = 1; 
3 : 35 1302 6 ; 
:1 37 iso? END; 
3 1 1808 
: 1239 1809 END 
Be URS Say 
: ii 13i¢ BELOW = .BELOW + 1; 
t 1264 1814 IF (.SCRPTR EQLA .EDT$$A_EOB_SCRPTR) 
> 1245 1815 5 
: 1246 1816 AT_BOTTOM = 1 
| ae a 
: 49 1819 6 SCRPTR = .SCRPTR CSCR_NXT_LINEJ; 
; 31 18 1 ? IF (SCRPTR EQLA 0) 
31 33 18 3 8 REC_NO = .REC_NO + 1 
ie BE 2% 
; ! 26 1836 5 IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO + 1; 
: 125 1828 ; END; 
, 4 35 1829 
3; 1260 1830 4 END; 
: 15e2 1882 3 END 
:4 6 1 § : 
; 1264 1 1° ; 
3 ' +4 ' 5 : Now see how many Lines are available above the current Line. 


CRUPDATE = update the screen 16-50 p-1984 01:43: AX-11 Bliss-32 
1$8scu UPD - update the screen =300 71382 9}: 724: ‘45 YET Reb stkupoay 
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SCRPTR = ,EDTSS$A_CUR_SCRPTR; 
REC_NO = 0; 

BEGIN 
LOCAL 


Ww 


™~ 


NNN 
Wino 


IF (.SCRPTR NEQA 0) 

THEN 
BEGIN 
IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO = 1; 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
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14 
: If the screen data structure ends, try to add new items to the front of it. 


IF (.SCRPTR EQLA 0) 
THEN 
BEGIN 
IF EDTSSSC_MOVTOLN (.REC_NO) 


etse 


POPE BSI IA AA. A INI NID D0 INN NN NOD HD ID TTI AAA UIA UIE BP PPE EP 


BEGIN 
LNINS VAL = EOTSSS¢ LNINS ( ERTSSA_ FST_SCRPTR, EDTSSA_WK_LN CLIN_TEXT, 
-EDTS$A_WK_LN CCIN_LENGTH)) 

IF (.LNINS_VAL EQL 0) 

TH 


AT_TOP = 1 
SE 


rt 
ANNO 
—Oowo 


ARAVA SOP VERE WOOD RAL I OOOO 


ABOVE = .ABOVE + 1; 
END; 


END; 
SCRPTR = .EDT$SA_CUR_SCRPTR; 
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AT_TOP = 0 
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PDATE = update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 
UPD = upsate the screen 19-808- 1382 93:53:38 EDT. SRCISCRUPDATE.BLI; 
' Now compute the top line. If there is an enforced top Line, we try to use it. 
! If there is not, we try fo use the old top Line. Otherwise we go up a number of 
! Lines Spending on the direction of the last move, to preserve as much context 
;_as possible. 
; TOP_SET = 0; 

if ‘ NOT LINNOEQL (EDTSSL_TOP_LN, EDTSS$L_LNO_EMPTY)) 
ns BEGIN 


There is a request for a top Line. If it is below the current Line, reject it. 


IF (CMPLNO (EDTSS$L_TOP_LN, EDTSSL_CS_LN) GTR 0) 
MOVELINE (EDTSSL_LNO_EMPTY, EDTSS$L_TOP_LN) 


ELSE 
io BEGIN 
The requested top Line is above or on the current Line. If it is too far above, reject it. 
; TOP_DIST = 0; 
SCRPTR = .EDTSSA_CUR_SCRPTR; 
MOVELINE (EDTSS$L-CS_CN, TEMP_LINE); 
WHILE (( NOT LINNOEQL (TEMP_LINE, EDTSSL_TOP_LN)) AND ! 
(.TOP_DIST LSS .EDT$$G_SCLL_BOT) AND 
(-SCRPTR NEGA 0)) DO 


IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN SUBLINE (NUMBER_ONE, TEMP_LINE); 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
IF (.SCRPTR NEQA 0) THEN TOP_DIST = .TOP_DIST + 1; 
END; 
'¢ 


i If we found the Line and it would not require CE0B] to be above the bottom 
: of the screen, accept it. 


i (LINNOEQL (TEMP_LINE, EDTSSL_TO°_LN) AND ((.BELOW + .TOP_DIST) GEQ .EDT$$G_SCR_LNS)) 


TOP_SET = 1 
MOVELINE (EDTSSL_LNO_EMPTY, EDTS$L_TOP_LN); 
END; 
END; 


'¢ 
: If we have no top determined yet, try to use the old top. 


scaureate - update the screen 18-500-19 4 91:33:38 AX-11 et Peeve out Page (3 


cers RUPDATE is 
SC_UPD = update the screen -Sep-1984 EDT. SRCISCRU 
1 


g 


en NOT .TOP_SET) AND (.EDTSSA_TOP_SCRPTR NEQA 0)) 


IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO = 1; 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
IF (.SCRPTR NEQA 0) THEN TOP_DIST = .TOP_DIST + 1; 


S33833 


SSLSRR ANS SELES aSSS 
$32 


ar 


te 

! If top is still not set and there is a record of a previous cursor Line 

! and we are rebuilding the screen data base, try to compute the top Line 

!' such that the cursor eteys where it was. fhis is useful in case the code 
! for fixing notruncated Lines must force a rebuild of the screen data base. 
: Try to keep the cursor in proper boundries. 


Se 


4 970 END; 

4 971 

4 3f6 1+ 

4 97 ! If we found the old gop Line and it will leave the cursor Line in range 
Z are : and not put the CEOB] above the bottom of the screen, use it. 

4 97 

4 379 -TOP_DIST LEQ .EDT$$G_SCLL_BOT) AND : 

4 978 -TOP_DIST GEQ .EDT$$G_SCLL_ TOP) AND } 

4 979 (,BECOW + .TOP_DIST) GEQ .EDT$$G_SCR_LNS) AND ! 
4 980 -SCRPTR EQLA .EDTSSA_TOP_SCRPTR)Y 

4 oe) THEN 

4 9 ¢ TOP_SET = 1; 

4 98 

4 9 

4 9 

4 9 

4 9 

4 9 

4 9 
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AY NOT .TOP_SET) AND .EDTS$$G_SCR_REBUILD) 
BEGIN 


LOCAL 
TARGET _LINE; 


TARGET_LINE = MAX (MIN (.CURSOR_LINE, .EDTS$G_SCLL_BOT), .EDT$$G_SCLL_TOP); 
SCRPTR™ = :EDISSA_CUR_SCRPTR: 


Bh aa at = 8 8 st a = ss a ss a = — 0 a ss 4s as 4 a st ts ts st tt an 


SeSeonsesesssresss 


WHILE ((.SCRPTR NEQA 0) AND (.TOP_DIST NEQ .TARGET_LINE)) DO 
SCRPTR = .SCRPTR CSCR_PAV_LINE); 
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SSC-UPD = update the screen” 1er$ep-198e Vesdeses — EEDTssecdstnupbaveseui st an 


TOP_DIST = .TOP_DIST + 1; 
END; 


oot 


“4 


IF ((,TOP_DIST EQL .TARGET_LINE) AND ((.BELOW + .TARGET_LINE) GEQ .EDT$$G_SCR_LNS)) 
TOP_SET = 1; 
END; 


te 
! If top is still not set, try to find a new top Line a suitable distance 
above the current Line. 


IF ( NOT .TOP_SET) 
THEN 
BEGIN 


LOCAL 
TARGET _LINE; 


1+ 

! Work back until the beginning of the screen data structure or until TOP_DIST is 

!' big enough for the direction we are Bor Ing. 

! The (.CURSOR_LINE + .EDTSS$G_RECS_INSERTED) code is here to fix a problem on VT52's 
: with the screen scrolling too far up on a paste. 


WN OOODNOAVE WN“ COOONOUS UT" O0R we 


WAAL ALATOROTOROPONOPONOFOTO SS SS 


IF ((.DIR GEQ 0) OR (((.CURSOR_LINE + .EDTS$G_RECS_INSERTED) GTR .EDT$$G_SCLL_BOT) ! 
AND (.EDTS$G_RECS_INSERTED GTR 0))) 


THEN 
ELS TARGET_LINE = .EDT$$G_SCLL_BOT 
TARGET_LINE = .EDTS$G_SCLL_TOP; 


'¢ 
! If necessary, work back further to avoid Lifting the CE0B] above the Last Line 
of the screen. 


TARGET_LINE = MAX (.TARGET_LINE, .EDTS$G_SCR_LNS - .BELOW); 


NOULSWN OOO 
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REC_NO = 
SCRPTR = 
TOP_DIST 
WHILE ((.SCRPTR NEQA 0) AND (.TOP_DIST NEQ .TARGET_LINE)) DO 


SCRPTR = .SCRPTR CSCR_PRV_LINE); 
Top pIst = .TOP_pIst 71; 


0; 
-EDTSSA_CUR_SCRPTR: 
= I> 


PAA 


WO OONOA US WO O@ 


'¢ 
: If we found the Line we were looking for, accept it. 
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IF (.TOP_DIST EQL .TARGET_LINE) THEN TOP_SET = 1; 
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ED TESCAUTDATE - update the screen 15-Sep-1984 91:53:06 AX-11 Oh lee 38 Vv ee 


4.0- 
UPD = update the screen EDT. SRCISCRUPDATE .BL 


-Sep-1 


1+ 
! If no Line is suitable, use the first Line in the screen data base. This can happen when we 
have a buffer that fits on the screen. 


IF ( NOT .TOP_SET) 
THEN 
BEGIN 
TOP_DIST = -1; 
SCRPTR = .EDT$SA_CUR_SCRPTR; 
WHILE (.SCRPTR NEQA 0) DO 
TOP_DIST = .TOP DIST +1; 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
END; 
END; 


'¢ 
: Now that TOP_DIST is computed, find the new top screen pointer. 


SCRPTR = .EDTSS$A_CUR_SCRPTR; 
REC_N ; 


o= 06 
INCR I FROM 1 TO .TOP_DIST DO 
BEGIN 


IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO - 1; 
SCRPTR = .SCRPTR CSCR_PRV_LINE); 
END; 
TOP_RECNO = .REC_NO; 
re TOP“SCRPTR = .SCRPTR; 
i Compute the number of Lines between the old and new top Lines, 
: so we can see how far to scroll, and in which direction. 
IF ((.EDTSSA_TOP_SCRPTR NEQA .TOP_SCRPTR) AND (.EDTSSA_TOP_SCRPTR NEQA 0)) 
BEGIN 
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grupo - update the screen 1b-5e Sep-1 243: AX-11 Bliss 
3s - update the screen =3007 1383 9}: 724: ‘48 EDT.SRCISCR 


ERT Sec EroAte 


; 


oo 
—— 
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RUPDAYEBL1 rank 
IF (.SEEN_OLD AND ( NOT .SEEN_NEW)) THEN SCLL_NUM = .SCLL_NUM + 1; 

IF (.SEEN_NEW AND ( NOT .SEEN_OLD)) THEN SCLL_NUM = .SCLL_NUM - 1; 

IF (.SCRPTR EQLA .TOP_SCRPTR) THEN SEEN_NEW = 1; 

IF (.SCRPTR EQLA .EDTSSA_TOP_SCRPTR) THEN SEEN_OLD = 1; 

SCRPTR = .SCRPTR CSCR_NXT_LINE); 

END; 


" ASSERT (.SEEN_NEW); 


i If the old top Line is not in the data base, it must be too far away 
; to scroll. 


wy 


IF ( NOT .SEEN_OLD) THEN SCLL_NUM = 0; 


'¢ 
q If the amount to scroll is too large, don't do any scrolling. 


IF (ABS (.SCLL_NUM) GEQ .EDTS$G_SCR_LNS) THEN SCLL_NUM = 0; 


1+ 

! The sign of SCLL_NUM says which way to scroll, and the magnitude says 
i how much. First” pests ten to the bottom or top of the old screen, 

: depending on which way we are scrolling. 


SSIS ee SOTO eae 
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The cursor is moving down, so scroll the screen up. 


SCRPTR = .EDTSSA_BOT_SCRPTR; 
REC_NO = RECNO; 
SCRPTR = .SCRPTR CSCR_NXT_LINE); 
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81 
se 
WHILE (.SCLL_NUM NEQ 0) DO 
2 5 BEGIN 
5 IF _(.SCLL_NUM GTR 0) 
389 ae 
if : 
5 
5 
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6 IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO + 1; 
e OLD_BOT_RECNO = .REC_NO; 
631 71 IF ,EDTSS6_ TI_SCROLL 
g 78 <a 
$0 a EDTsssc scsif (.EDT$$G_SCR_LNS - 1, 0); 
5 i DIssi (UPLIT (BYTE (ASC_K_LF)S, 15; 
60 7 ELSE’ 
608 78 BEGIN 


a7 -- 5 


1 
$ 
$ 


EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 
ba e000 EDTS$SC 5 


UPD = update the screen 


3 
SAME SERS WBS NAMES RTS 


% 
$ 
609 17 EDTSSSC_POSCSIF (.EDTS$G_MESSAGE_LINE + 1, 0); 
219 1 8 EDTSSFMT_LIT (uP if Bxre (ASC E-tFNS, 1); 
ot } 1 BoTSSSC_POSCSIF -EDTS$G_SCR_LAS™= 1, 0); 
HEE | 
615 185 i If this is a non=scrolling-region terminal, text may have moved down into the message 
218 : : region or a message may have moved up one (ine. Erase the message region. 
61 188 6 
gis 189 IF ( NOT .EDT$$G_TI_SCROLL) 
g : 139 THEN GIN 
6 § 135 EDTSSG_MSGFLG = 0; ! Any message is lost 
6 19 EDT$$G7CS LNO = .EDTS$G_SCR UNS; 
624 194 EDTSSSC_ERAALL (); 
? 5 133 END; 
6 5 19 EDTS$G_CS_LNO = .EDT$$G_SCR_LNS - 1; 
628 198 eeseeT (EBTSS$SC_MOVTOLN (.REC_NO)); 
629 1 EDT$$SC_RFRELN C.SCRPTR, .E0TS$G_TI_ SCROLL); 
é 2 EDTS$A_TOP_SCRPTR = .EDTS$A_TOP_SCRPTR CSCR_NXT_LINE); 
631 EDTSSA_BOT_SCRPTR = .SCRPTR; 
O36 SCLL_NOM = .SCLL_NUM = 1; 
6 END 
634 ELSE 
635 BEGIN 
es ; 
638 
63 SCRPTR . -EDTS$A_TOP_SCRPTR; 


REC_NO = .OLD_TOP_RECNO; 
IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO - 1; 
OLD_TOP_RECNO = .REC_NO; 
SCRPTR = .SCRPTR fScR PRV_LINE); 
EDTS$$SC_POSCSIF (0, OY; 
IF (.EDTS$G_TI_TYP EQL TERM_VTS2) ! 
EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C'I")), 2) 


ELS 
EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C°M')), 2); 


+ 


If this is a non-scrolling-region terminal, text may have moved down into the message 

region or a message may have moved up ong ine. Erase the message region. It is important 

to erase the message region peters peine ng th new line at the top of the screen. Because 

of what appears to be a problem within the VT52, if EDT paints the new Line first and then 

erases the messege area, some of the leading characters will sometimes be lost from the 
ne. To demonstrate the problem, SET LINES 10 and edit a file of 22 80-character 
- Go to the bottom of the buffer and type GOLD 8 up arrow. A more extreme 

case is to SET LINES 5 and type GOLD 4 up arrow. 
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° 
? H The cursor is moving up, so scroll the screen down. 
6 
6 
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IF ( NOT .EDT$$G_TI_SCROLL) 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 18-$e -1984 01:43: AX-11 Bliss-32 V4.0-74 e 1 
1042000 EDTSSSc_UPD - update the screen 1 730071 38e 93:52:28 YEbT SREISCRUPBAYE L144 _ 3) 
: $ THEN 
peels 
EDTSSG_MSGFLG = 0; ! any message is lost 
66 EDT$$G-CS_LNO = .EDTS$G_SCR_LNS; 
6 » 4 EDTSSSC_ERAALL (); 
of 2 END; 
org rk EDTS$G_CS_LNO = 0; 
674 44 ASSERT (EDTSSSC_MOVTOLN (.REC_NO)); 
675 45 EDTSSSC_RFRELN T.SCRPTR, 1); 
676 rf EDTSSA_TOP_SCRPTR = .SCRPTR; 
of 4 EDTSSA_BOT_SCRPTR = .EDTSSA_BOT_SCRPTR CSCR_PRV_LINE); 
a8 rk SCLL_NOM =".SCLL_NUM + 1; 
6 r4 END; 
23 END; 
38 END; 
55 END ! of .SCROLLING_NEEDED OR .BUILD_SCR 
3$ ELSE GI 
28 TOP_SCRPTR = .EDTSSA_TOP_SCRPTR; 
23 TOP_RECNO = .EDTS$G_TOP_RECNO; 
ar 
! Make a final update pass over the screen. This will be needed if 


! no scrolling took place due to the new screen being too far from 
! the old screen, or if we erased the screen, or if we are rebuilding 
! the screen data base from scratch. If scrolling was needed then 
! this pass is necessary to recompute CURSOR_LINE, even if no updates 


EDT$$A_BOT_SCRPTR = .SCRPTR; 
IF (.SCRPTR EQLA .EDTS$A_CUR_SCRPTR) THEN CURSOR_LINE = .EDT$$G_CS_LNO; 


68 ' need to be made. 
3 wa 
01 71 IF (.SCROLLING_NEEDED OR .ERASE_ALL OR .BUILD_SCR) 
9@ 7 THEN 
0 7 BEGIN 
04 7% REC_NO = .TOP_RECNO; 
05 75 SCRPTR = .TOP-SCRPTR; 
706 7 CURSOR_LINE ="-1; 
107 u EDTS$$G~CS_LNO = 0; 
709 7 WHILE ((.EDT$$G_CS_LNO LSS .EDT$$G_SCR_LNS) AND (.SCRPTR NEQA 0)) DO 
10 9 BEGIN 
ie Be UF (CSCRPTR CSCR_EDIT_FLAGS] AND (SCR_EDIT_MODIFY OR SCR_EDIT_INSLN OR SCR_EDIT_DELLN)) NEQ 0) 
714 BEGIN 
715 5 ASSERT (EDTS$SC_MOVTOLN (.REC_NO)); 
16 EDT$SSC_RFRELN C.SCRPTR, .ERASE_ALL); 
71 END; 
718 
71 
7 
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413 
E TSREBUPBATE DISSCRUPDATE = update the screen 16-Sep-19 AX-11 ss-32 V4.0-74 
Oe EP Teese C_UPD - upeate the screen 19-308- 1382 9:5 2:28 fe DT. gReds sthupoate oust 


SCRPTR = .SCRPTR CSCR_NXT LINE); 
EDTSS$G_CS_LNO = LEDTSSG G_CS_LNO + 1; 


IF (.SCRPTR NEQA 0) 
BEGIN 
IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN REC_NO = .REC_NO + 1; 
ENP; 


; ASSERT (EDtS$sC_MOVTOLN (.REC_NO)); 
If there is more room on the screen, erase it if necessary. 


IF (.EDTS$G_CS_LNO LSS .EDTS$G_BOT_LINE) THEN EDTS$SC_ERAALL (); 
EOTeSS OT LIME = .EDT$$G_CS_LNO; 
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'¢ 
; i the clean-up on the screen data pointers. 


Mn 


DT$$G_TOP_RECNO = .TOP_RECNO; 
DISSA_TOP-SCRPTR = .TOP_ SCRPTR; 
TS$G"SCRTREBUILD = 0; 

$G_AN HANGE 


= 
SS$A_CSR-SCRPTR = EBTSSA_ CUR_SCRPTR; 
$$G_RECS CNSERTED © 
SA"OLD_SEL = 

$$6-CS_OLOCHNO = .EDTS$G CS_CHN 
$sst POStSiF (. CURSOR *P Tne ceUREOR POS); 
$36 EUR COL = 2GURSOR- POS; 
UR hot = R_CINE; 
$$e7° SABU AUTRERS ae 
SSOUT _FMTBUF (); 
SSA_LA_PTR = .EDTS$G_CS_CHNO + EDTS$T_LN BUF : 

' of routine EDT$$SC_UPD 
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4 
4 
4 
5 
| 
4 
END; 
'¢ 
_Be sure that we leave the screen updater positioned on the current record. 
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- TITLE FoTSScRUreATe EDTSSCRUPDATE - update 
\V04-000\ 


~ IDENT 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


OA 000 P.AAA: .BYTE 10 
1 -BLKB ; 
OA P.AAB: .BYTE 0 
H -BLKB 3 
49 18 08 P.AAC: .BYTE 7, 73 


the screen 


ERTSSERUPDATE 


EDTESCRUPDATE - update the screen 
EDTSSSC_UPD = update the screen 
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AX-11 Bk ° 
CISCRU 


EDT.SR 


FMT_LIT 
SOUT _FMTBUF 
DT$$SC_CPUCSPOS 


EDT$$SC_MOVTOLN 
EDT$$SC_NONREVID 


D 
Pp 
NOOVERLAY 
DTSSL_LNO_EMPTY 


NE 
T$$A_CSR_SCRPTR 


$$2_E0B_LN 
DTSSA_FST_SCRPTR 


BMaAaDwBo~— wre-ma 


“BUF, EDTS$L_TOP_LN 
BUF. EDTS$$G_SCR_LNS 


LLB 
TYP, EDTSSA_LN_PTR 


SC 
SC 
TI_ 
“TI“SCROLL 
RECS_INSERTED 
FST_AV 

TRUR, EDTS$$G_MEM_CNT 
BOT CIN 


CHANGES 
EVID, EDTS$G_MSGFLG 
ER_ERR 
UPD, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


gdTsssc NONREVID 

G_LN_NO 

$T tN BUF, RO 

EDTSSA_LN_PTR, EDTS$$G_CS_CHNO 
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EDTSSCRUPDATE DTS CRUPDATE - update the screen 16-50 Sep-1984 3: AX-11 Bliss-32 V4.0-74 p 

tt ts EDTSESC UPD = update the sevecn ex ee~ he N:Sz:28 | PANT Lehi se ree er Te — 

000000006 00 06 A eee. ae Be if Move3 We, SRO), “Eorést cs _LN : 

000000006 F 4A CALLS #0. EDT shpL- : 

: 900000006 eB 1 LBS eots$¢ TR TRUN : 

00000006 E9 90058 LBC EDTSS6- ANY ‘at ber 2$ : 

000000006 00 9 FB F CALLS #0, EDTSSFIX HNO TRUNC -NOOVERLAY ; 

66 2$: CLRL SCRPTR : 

1c oA oF PUSHAB CURSOR : 

24 AE 9F 00068 PUSHAB CURSOR “LIne : 

000000906 00 F O6F CALLS # pOTss $SC_CPUCSPOS ; 

20 AE 900000006 D MOVL EDTS CRS CURSOR _LINE ; 

51 000000006 p 7D OV gDTSS¢_ “Sent CHGD, : 

000000006 00 000000006 06 D1 0086 CPL gor $SA_SCR_BUF, EDTS$A_CUR_BUF : 

50 000000006 90 1 if 0093 ASHL #1, EDT$$G_SCR_LNS ; 

0 000000006 9 D} 90098 CMPL epts $G_RECS_ CNSERTED” °n0 ; 

02 1 01 QO0A4 3$ CMPL =saR1, #2 ; 

07 12 000a7 BNEG 4$ : 

000000006 00 00 FB 90049 CALLS #0, EDTS$SC_INIT : 

000000006 00 D4 00080 4s: CLRL EDT$$G_CS_LRO ; 

000000006 00 00 FB 000B6 CALLS #0, EDT$$SC_ERAALL : 

10 ag 00000006 HP aoe aR atSEG IM : 

ES PE. a |, ak ey ; 

0c AE 000000006 06 00 900¢¢ 6$ MOVL  EDTS$G_SCR_REBUILD, BUILD_SCR F 

OC AE . 0004 BLBS  BUILD_SCR, ~8$ ; 

2 AE 9F 000D8 PUSHAB DISP : 

re goonnnnas $8 0000806 9} 5 HEED SEEN EETFET EA ofe mos : 

000000006 00 02 FB OOOEA CALLS ne. EDT$$SC_FNDR : 

000000006 00 20 p OOF} Ov RO, EDTS$A_CUR_SCRPTR : 

000000006 99 p OOOFA ist EDTSSA_TOP_SCRPTR : 

000000006 00 f 20198 Ist DTS$SA_CSR_SCRPTR : 

oc A 1 DO OO10A 7S: MOVL BUILD : 

900000006 0 00 0105 8$: MOVL aie AN CHANGES. ANY _CHANGES ; 

90000 0G 00 D0 011 MOVL : 

1 000000006 : p¢ a5 OVE eo : 

D 12 00126 BNE : 

000000006 00 000000006 09 8 i CHP Hon 1, HIGH_2 : 

000000006 00 000000006 00 pf 91 9$ CMPL EDISSA_ SCR_BUF, EDTS$A_CUR_BUF ; 

« 00006 é 149 BOY ZL Vie : 

a wegamage (BE Sits Bua. : 

50 D1 0015 CMPL sR, R : 

a ee : 

50 000000006 Q 8 1 MOVL  LOW_1, RO : 

51 D1 001 F CMPL =e RO, “RI ; 

6 1€ 0016 BGEQU§ 118 : 
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EDTSSCRUPDATE = update the screen 
EDTSSSC_UPD = update the screen 


AE 
08 


AE 

000000006 
00 000000006 
53 000000006 
00 000000006 


08 
AE 

14 
03 oc 
51 000000006 
: 000000006 


02 000000006 
50 000000006 
52 


51 


SNNNIOOOOAO 


ONOY> FSOMDO~w —— 


MIO OO F NOOO F OHLMP MNO NOMOWWDWON YS FPOOOPOCO—0 QNOOOFOOO 
OP DOOM OOCOM AN MNOS SFO fWQOOMMW$ OM NOWMOWDOWO— £&Mw— 


ONMOVUIT SAMA OUIMS S OLIN PW S SIVINOW Rese SRS 


SOOSGOGSSOSOGOOSOOGCOOCOOGOOSOOOSOSOOSOSOOSOSCOOOSOOSOSOOSOOOOSOOOOOSOOOOOOOOOOO 


DID OWOSSO FW" OONO WOW CNM NOON WO 3 10 29 00 08 & POW 0 2 | HUIS S Sr mM 


—DWooCrWooION-VGITWwDoTOCWNn-9o M9 9 9 "OW" GO Own 9 9 “0 - 0 $90 90 “$90 9 | 9 |] 


SI PIAS FEL AWAINV AS OSS MMMMMMNMOCOTVIVMOOOWWIOr>r>r>Y roOw”o 
We NO 
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R 
$$G_RECS_INSERTED 


SCROLLING_NEEDED 


LING_NEEDED 
-SCR, 17$ 


A_SEL_BUF, R1 
A-OLD-SEL. R2 


Deer or 


$$G_TI_TYP, #2 


$SA_SCR_BUF, RO 
R2 


SE_ALL, 18$ 
EDT$S$L_CUR_SCRLN, OUR_LINE 


E 

$ 
$$L7CS_CN+4, TEMP_LINE 
$$L~CUR_SCRLN+4, TEMP_LINE 
E, OPPER_wo 

P_LINE, REC_OFFSET 
$$G_CS_OLDCANO, OUR_CHNO 
SSA_CSR_SCRPTR, OUR_SCRPTR 
E 


DT$S$L_CS_LN, OUR_LINE 
EC OFFSET 
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Ax-11 Ol leer 3s oS a ee | 
SCRUPDATE.BLI; 


‘ERASE_ALL, 38 


GDISSA_SEL_BUF, EDTSSA_CUR_BUF 
DTS$G_TI_TYP, #2 


7$ 
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OL 800 preece - upeate the screen 13-808-1 382 94:33 48 EDT.SRC dee pbaYe ois _ B 

000000006 dD 0041 PUSHL EDTS$SA_FST_SCRPTR ; 7! 
000000006 99 g FB 004 3 CALLS a: orsest REPAINT : = 
> $9 d0c5o foe ANY iit. : 1316 . 
49 14 AE €9 0040F 45$:  BLBC SCROLLING NEED ATs + 1219 3 
29 000000006 00 DO 004 : MOVL SD TSsA TOPS RO : 1222 . 7 
6 p 43A MOVL (RO), SCR : : 
43D BEQL 46$ 3 1224 : | 
1 po 43F PUSHL #1 : 3 | 
7E FF F 9A 0044 MOVZBL #255, (SP) : 3 1 
5 DB ooed i oiete | 
000000006 9 DD 00449 PUSHL EDTSSA FST_SCRPTR : 3 | 
000000006 99 F 44F CALLS # Ase REPAINT : 3 | 
000000006 0 p 436 46$: HOV Dts A_BOT_SCRPTR, RO ; 1226 3 
57 04 AQ DO 0045F MOVL  4(RO), SCRPTR : 1229 & 
oa 463 BEQL 47$ + 1231 : | 
1 pd 0465 PUSHL #1 : : | 
7E FF F 9A 00467 MOVZBL #255, -(SP) : : | 
D4 00468 CLRL = (SPS ; 3 
000000006 00 oD 046 PUSHL EDTS$A_LST_SCRPTR : : | 
57 0D 004 PUSHL i, 007 : : | 
000000006 00 05 FB 0047 CALLS # ge REPAINT : : | 
000000006 90 p dare 47$: ist tas A_TOP_SCRPTR + 1245 : 
oc A 01 DO 00484 MOVL BUILD_SCR ; : | 
0 0c AE 9 00488 48$:  BLBC Suite SCR 49S + 1247 3] 
0005 31 0048C BRW 6 : : | 
57 000000006 99 DO 0048F 49$: MOVL EDTSSA_CUR_SCRPTR, SCRPTR : 1256 : | 
7 59 D4 0496 CLRL _NO ; 1257 :] 
OZ FFFFFFFF  8F 08 AE CF 0049 CASEL IR; #-1, #2 : 1259 3 | 
O00F 0037 004 004A1 50S: . WORD 2$-508.- : : 
51$-50$ : : | 
000000006 00 99 FB 00447 CALLS #0, EDTSSINTER_ERR : 1340 3 | 
9 11 004A BRB 58$ : 1259 3 1 
08 A7 93 4B0 51$: TSTB B¢SCRPTR) 3 1271 31 
03 13 0048 BEQL 38 : : | 

0c OD a7 : E1 0048 BBC #2, 13(SCRPTR), 53$ : 1272 : 
50 67 DQ 004BA 528: MovL (SCRPTR), PREV_SCRPTR ; 1279 3 | 
, 4 4BD BEQL  53$ : 1281 3 | 
02 Op ad 3 BF BBS #2, 13(PREV_SCRPTR), 53$ : 1285 3) 
D7 004C4 DECL = REC_NO > 1287 3 
57 D C6 53$ MOVL (SCRPTR) : 1293 3 | 
000000006 00 7 0 C CHPL —SCRPTR, EDissa. sR _SCRPTR : 1295 3 
BB 4 BEQL $ : a | 
7 p 4D TSTL CRPTR ; 3) 
A 4D. BNEQ i$ ; 3 | 
% 4d6 BRB 8$ : 1259 3 | 

57 000000006 06 408 54$: MOVL EDTSSA_CSR_SCRPTR, SCRPTR : 1 04 3 

4DF BRB $ : 1259 3 

50 06 A p E1 55% MOVL 4(SCRPTR. NEXT_SCRPTR > 1319 : 

11 KES BEQL 57 : 1321 : 

0 3 4E BBS #2, 13(SCRPTR), 57$ > 1325 : 

08 A 4EC TSTB S(NEXT _SCRPTR) : 1326 : 

05 1 4EF BEQL 6$ : : 


EE, —_—— 
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$: MOVL STRPTR) SCRPTR 
PTR, EDTSS$A_CSR_SCRPTR 


Egrepenureate 


EDT T$8Sc UPD = update the screen 
EDTSSSC_UPD = update the screen 


02 OD A0 


8 04 
000000006 00 


vo 
=~ 
po) 


000000006 00 PTR, EDTSSA_CSR_SCRPTR 


vw 
“4 
2 


oc a 
4 oc 
OA 14 

24 AE 000000006 


51 000000006 


ve wor 
=f wow 


Oo 

co 
vw 
“4 
»@ 


CRPTR) 


(SCRPTR), 64$ 
R), PREV_SCRPTR 


3 
T 
PREY SPER, 64$ 
RPTR), SCRPTR 
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CMPL StePTA. R 
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MOVL #1, BUILD 8° 
6$: BLBS ANY_CHANGES, 68$ 
BLBS SCROLLING. peas 68$ 
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8$: BLBS BUILD_SCR 
TSTL EDISSC_ Ets” TaSERTED 


ANOTHER pass 
INS CO 
EDT SSA. Top SCRPTR, SCRPTR 


MOVL INS mice PREV. NS _COUNT 
BB (SCRPT 


tng 

71$: BBC Bo -f WRCRPTR) . 72$ 
DECL IN NS_COUNT 

72$: BEQL 35 

A TSTL  PREV_INS_COUNT 


MOVL SCRPTR, BEG_SCRPTR 
L NS_ COUNT 


oc OD A? 
R 


na 
Ww 
bad 
S228 
o 
< 
ad 


02 OD A0 


WOoPrrm 
ow 
zx 
@o 
AADBO ~— BOOOVOUMAMYD BOUIN UM SW 
POM: AM: RMYRDODAIVCAD— KCBeKHDeDewDore 


MRMOMMLH IWR UO NO GRIM C "OOM ONO WO 


vwz=- VU 


24 =O 
5 


OMDNVMVOD OS] "Oy 

ao Oo 
w 
wen 

oz 

zoom 

o<n 

rc 


E 
1 
oc Ac 
3 


So 


WUWNNONONONOUNOUN MOF BF NOCOUUITGAUSOACO> UI MNOWO PF FP OOMOW'190 MOU WO 


Coon Oo 


000000006 


000000006 


o 

) 

o 

o o 
See 
2 

- 


~ 
oOo 
on 
i 
» 
a 


TS SUITE S Corowm 
<= 


PS PMI NAS SPINNING. “OM OM CH F& NWO NON NNN V™ NODWOMM 3 & SE NONE VOT 
WIRIMNONVNAN A BF @§ O FO & FWD $$ WHO 0 0 NIOWO HUI 9 = ODDO UU OOO — 
SOoooooooooooooooooooooooooooooooQooooooooooQoQoQoQoooooooooooo 
Sooo OCOOCOOOCOSOSOOSOCCSOCOSOOOSOCOCOCOSSCOOCOCCOOOOOOOC OOO OOOO OOOO OOOO OOO 
Ste ie tei ah ieindariadnter ated nade aaa aa an eae ae ee tie cn cee ee Ft et 
NU 


Pee Se Se Se Ge Se Se Se Ge Se Fe Ge Fe Se Ge Ge Ge Fe Ge Fe Fe Se Ge Ge Ge Ge Ge Fe Se Se Be Se Be Ge Ge Be Be Be Be Ge Be Ge Ge Fe Se Fe Fe Fe Se Se Se Fe Fe Fe Se Ge 


—o 90 9 9 -—OMomoooT7o -OMWwMmMmnoe -C C9 -Cc oO mom Oo 9 -- 90 9 oO MMO 90 0 0 -]-CC7C0OMm 


A TSTL PREV_INS_COUNT 
76 


H 14 
EDTSSCRUPDATE EDTSSCRUPDATE = update the screen -$ep-1984 01:43: AX-11 Bliss-32 V4.0-74 e 
¥O4~000 EDTS$SC_UPD - update the screen : Het 1 93:52:28 LeDT sre SCRUPDATE .BLI; _ HS 


000000006 00 $5 é A cmPL BEG_SCRPTR, EDTS$A_TOP_SCRPTR 3 1455 
50 000000006 9 D B2 74$:  MOVL EDTS$A TOP_SCRPTR, RO : 1458 
OA 0p A E B BBC #2, 13tRO); 75$ : 
000000006 0 04 a0 09 f MOV 40), EDT$$A_TOP_SCRPTR + 1459 
1 DD 0058 75$: PUSHL #1 + 1464 
7E FF BF 9A O05CA MOVZBL #255, -(SP) F 
E D4 cE CLRL = (SP§ : 
00OAO «8F_ OBB 3 PUSHR #*M<RS,R7> : 
000000006 9 5 F D4 CALLS #5, EDT$$SC_REPAINT : 
1 0 208 MOVL #1, UPDATE BONE + 1465 
6 1 p DE MOVL #1. ANOTHER_PASS : 1466 
17 SE BRB 79$ + 144 
000000006 00 57 D1 005E3 76$ CMPL SCRPTR, EDTS$A_BOT_SCRPTR + 1471 
05 1 OSEA BEQL 5 : 
04 aA? 05 005EC TSTL 4 (SCRPTR) : 
5 if OSEF BNEG 78$ : 
53 1 00 005F1 778 MOVL #1, UPDATE_DONE + 1473 
4 11 0054 BRB 79§ ; 
57 04 A7 DO 005F6 78$:  MOVL 4 (SCRPTR), SCRPTR + 1475 
ag 53 £9 OOSFA 79$:  BLBC —_—~UPDATE_DONE, 70$ + 1480 
03 36 59 O5FD BLBC § ANOTHER_PASS, 80$ + 1483 
FF 1 9600 BRW 69$ : 
52 DS 00603 80$ TSTL 2 + 1490 
g 18 00605 BGEQ =: 81$ ; 
52 cf 00607 MNEGL R2, R2 : 
50 900000006 00 01 060A 81$: ASHL #1. EDTS$G_SCR_LNS, RO : 
50 03 C6 0612 DIVL2 #3. RO : 
50 52 D1 0061 CMPL Re RO : 
04 15 00618 BLEG 82$ ; 
OC AE oi DO 0061A MOVL #1, BUILD_SCR F 
07 8 Es 0615 82$ BLBS | ANY_CHANGES, 83$ + 1496 
03 16 AE ; 06 BLBS § SCROLLING_NEEDED, 83$ F 
01D1 31 00625 BRW 115$ : 
03 Oc AE 5 0628 83$ BLBC BUILD_SCR, 84$ : 
o1ce 1 0062C BRW 116$ : 
D4 O062F 84S CLRL = RO > 1513 
000000006 DS 00631 TSTL EDISSG_RECS_ INSERTED : 
12 00637 BNEQ 5$ ; 
D6 00639 INCL RO fe 
SA p 6 858: MOVL RO, INS_DEL_DONE : 
4 7C 006 ; 6$:  CLRG  ANY_INS"DEL : 1518 
59 34 A 06 64 MOVL § OLD"TCP“RECNO, REC_NO > 1519 
7 900000 0G D 44 MOVL § EDTSSA_TOP SCRPTR, ~SCRPTR : 1520 
00000006 D4 00648 CLRL  EDT$$G~CS_CNO : 1521 
p4 63 87$ CLRi UPDATE DONE : 1525 
07 OD A BITS (SCRPTR), #7 : 1528 
03 1 BNEQ ; 6 : 
0 § 9 BRW $ ; 
26 OD a7 E1 c 88$: BBC #2, 13(SCRPTR), 90$ : 1535 
7 A €E9 0066 BLB INS_DEL_DONE, 89$ : 1538 
000000006 00 0 FB CALLS #0, EDTSSINTER_ERR ; 
24 AE OOF B 89$ PUSHAB OLO_TOP_REC : 1539 
DD PUSHL SCRPTR : 
0000v cf : FB CALLS #2, DELETE_LINE : 
6 D0 0067 MOVL RO, STATUS : 
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100-000 EDTSSSC_UPD - update the screen 122808-1 386 93:32:28 YEDT sre sthupbave colt: — 
4 1 OD 78 MOVL #1, ANY_INS_DEL é ; 
2, 6 4 78 BLBC_ = STATUS -$h- : ; 
000000006 60 Fe i CALLS AQ, EDTSSINTER_ERR F ; 
FO RRR Rie Ga spe s.r : : 
000000006 00 0 FB F CALLS #0, EDTSSINTER_ERR : ; 
34 AE OF 3% 91$ PUSHAB OL6 TOP, RECNO : ; 
0280 F BB PUSHR #*M2R7,R9> : : 
0000v CF ; F 9 CALLS #3, INSERT_LINE : ; 
¢ 1 D s move ib ANY ANS DEL : 
8 § E oA 92$ BLBC STATUS. “988 : : 
DD 006AB PUSHL = REC : ; 
000000006 99 1 FB 6AD CALLS #1, EDTS$$SC_MOVTOLN : ; 
0 €8 00684 BLSS RO, $ ; : 
000000006 00 0 FB 00687 CALLS #0, EDTSSINTER_ERR : ; 
1 0D 68k 93$:  PUSHL #1 : ; 
ve FF 68F 9A 006C MOVZBL #255, -(SP) : ; 
E D4 06C4 CLRL = (SPS : ; 
3 DD 06¢6 PUSHL  SCRPTR : ; 
7 0D 006C PUSHL —SCRPIR : ; 
000000006 00 05 FB OO6CA CALLS #5, EDTS$$SC_REPAINT : 3 
o4 DD 00601 PUSHL #1 : ; 
7 DD 00603 PUSHL  SCRPTR : ; 
000000006 00 02 FB sueae CALLS EDT$$SC_RFRELN ; : 
1F g E9 OO6DE 94$:  BLBC _—INS_DEL_DONE, 96$ : ; 
59 DD 006E1 PUSHL  REC-NO ; ; 
000000006 00 gi Fe 06E3 CALLS #1, ~EDTS$SC_MOVTOLN : ; 
07 0 £8 OO6EA BLES = RO. ; F 
000000006 00 00 FB 006ED CALLS #0, EDTSSINTER_ERR : ; 
10 AG pp O6F4 95$:  PUSHL ERASE_ALL ; ; 
57 DD O6F7 PUSHL : ; 
000000006 00 ¢ FB 00Gr9 CALLS #2, EDTSSSC_RFRELN : ; 
56 1 00 00 968: MOVL = #1, : ; 
06 6 €8 00708 97$:  BLBS STATUS, 99S : ; 
5 01 00 00706 98%:  MOVL #1, UPDATE _DONE ; ; 
55 o4 D0 00709 MOVL #1. ANOTHER_PASS ; ; 
03 3 5 70C 99$:  BLBC UPDATE DONE, 1008 ; ; 
OOAD 31 0070F BRW 11 : : 
900000006 D6 ay 100$: INCL  €EDT$$G_CS_LNO ; ; 
50 000000006 00 0071 MOVL EDT$$G~CS“LNO, RO ; ; 
000000006 00 O bi 007i CPL RO, EDTSSC_SCR_LNS : : 
52 04 A7 00 007 MOVE — 4 SCRPTRD, R2 ; ; 
zg 12 0072C BNEQ 1078 : F 
000000006 00 5 p u CPL SCRETR, EDTS$$A_EOB_SCRPTR ; : 
000000006 00 6 of g cAPL R ggE0TSS6_80T_LINE ; : 
000000006 00 fe 746 CALLS #0, EDTSSSC_ERAALL ; : 
D6 00749 1018: INCL REC_NO ; F 
9 DD 00748 PUSHL —REC-NO ; ; 
000000006 00 1 Fe 74D CALLS #1, EDI$SSC_MOVTOLN ; ; 
0 €8 00754 LBS = RO. *102$ ; ; 
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¥04~000 EDTSSSC_UPD = update the screen 1 =3007 1382 93:52:28 YEDT sre StRUPBAYE BL 121 wi G 
000000006 FB 00757 CALLS #0, EDTSSINTER_ERR ; 
8 000000006 p ; fF 1028: HOVE DfS$a wk LN, nb + 1632 
E A 007 OVZBL =(SP) : 
07 Ad 9F 007 PUSHAB 7(ROS + 1631 
7E 04 00768 CLRL 745?) : 
000000006 99 FB 0076D CALLS #3, EDTS$$SC_LNINS ; 
p 7 4 MOVL RO, LNINS_VAL : 
7 BNEQ  104$ + 1634 
53 1 p 109 103$: MOVL #1, UPDATE DONE + 1636 
04 3 b3 77E 104$: TSTL 4(SCRPTR) t 1640 
07 12 007 } BNEG 19 $ : 
000000006 99 0 FB 007 CALLS #0, EDTS$SINTER_ERR : 
04 A p 78A 105$: MOVL  4(SCRPTR), SCRPTR + 1641 
08 A? 078 TSTB  8(SCRPTR) + 1642 
7 13 0079 BEQL 106$ : 
000000006 00 0 FB 079 CALLS #0, EDTSSINTER_ERR : 
0D A? 1 90 0079A 106$: MOVE #1 (SCRPTR) + 1643 
9 11 0079 BRB 116$ ; 1602 
50 52 09 07A0 107$: MOVL 2, NEXT_SCRPTR + 165 
11 13 OO7A BEQL 1098 + 1657 
0c OD A? 0 f 7A BBS #2, 13(SCRPTR), 109$ + 1661 
08 A 7AA TSTB © 8(NEXT_SCRPTR) + 1662 
05 13 007AD BEQL gas ; 
02 0D Ad 98 E1 OO7AF BBC #2, 13(NEXT_SCRPTR), 109$ + 1663 
D6 00784 108$: INCL REC_NO + 1665 
57 3¢ D6 0786 109$: MOVL Re, SCRPTR + 1669 
03 : 0789 110$:  BLBS UPDATE DONE. 111$ + 1677 
FE92 «31 o7a¢ BRW 7$ ; 
03 5A €8 OO7BF 111$: BLBS = INS_DEL_DONE, 112$ + 1683 
55 01 00 Orce MOVL #1, ANOTHER_PAS ; 
32 54 €8 007C5 112$: BLBS § ANY_INS_DEL> 113$ + 1689 
5A 1 DO 007¢8 Ov. s#i INS DEL_DONE + 1692 
000000006 00 DD 007¢B PUSHL EDf$$G_SCR_CNS : 1696 
D4 00701 CLRL. = (SP) ; 
000000006 00 FB 00703 CALLS #2, EDTS$$SC_SETSCLLREG : 
03 a F, 270 113$: BLBC ANOTHER_PASS, 114$ : 1700 
000000096 00 000000006 6 d9 760 114%: MOVL  EDT$$G_CS_LNO, EDT$$G_BOT_LINE ; 1702 
18 AE D Ove MOVL REC_NO;> OCD BOT _RECNO + 170 
000000006 00 7 00 OO7EF MOVL § SCRPTR, EDTS$A_BOT_SCRPTR + 1704 
10 AE D4 O7F6 CLRL —- ERASE_ : 1710 
49 OC AE €9 007F9 115$:  BLBC BUILD SCR, 118$ + 1713 
51 000000006 9 p 7FD 1168: NOVL EDISSA_FST_SCRPTR, R1 : 1721 
50 900000 06 D ; MOVL EDTSS$A_LST_SCRPTR, RO : 1724 
04 Ad 00000006 D MOVL EDTSSA FST-AVLN, 4(RO) F 
000000006 1 0 1 MOVL «86 EDTSSA“FST AVN ; 1735 
000006 D4 OOBIC 1178: CLRL EDTSSA_FST~SCRPTR > 1728 
G D4 CLRL EDTS$SATLST“SCRPTR : 1729 
6 D4 CLRL EDTSSATTOPSCRPTR : 1730 
6 D4 E CLRL  EDTS$SATCURTSCRPTR > 1731 
G D4 CLRL EDT$SATBOT~SCRPTR : 17 é 
G D4 A CLRL  EDT$SATEOB-SCRPTR : 17 
G D4 0084 CLRL = EDTS$G"MEM=CNT : 17 
D4 Ag 1188: CLRL  REC_NO > 1740 
9 DD 0084 PUSHL  REC"NO > 1741 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 Page 43 E 
vt ts EDTS$S¢ UPD - update the screen 13288-1382 94:53:88 YEO T SREISCRUPBAYE: +i . Ri v0 
000000006 1 Ff 4A CALLS #1, EDT$$SC_MOVTOLN : 2 | 
; EB 1 BLES =O, its . : | 
000000006 F 4 CALLS @# goT SINTER_ERR : 3 
000000006 D 119$: MOVL  EDTSSA UR_BUF RO : 1742 2 | 
000000006 p MOVL_ RO, EDT A-SCR BUF : 3 
000000006 00 6 A 6 MOVC3 #6, 6(RO), EDT L_CUR_SCRLN + 1743 3 | 
4D o¢ AE € BLBC BUILD SCR, 121$ + 1745 3 | 
30 000000006 0 7 OVL EDT$S$A_WK‘'LN, RO + 1748 3 
a 60 9A 00870 MOVZBL (RO), =(SP) : 3 
07 AO OF PUSHAB 7(ROS : 3 | 
0000006 O8 fe CALLS #3, EDTSSSC_LNINS : | 
tiddittts 88 990000006 D ¢ MOVL tOts$a ret SCRPTR, EDTS$A_CSR_SCRPTR + 1749 2 
00000006 p 6 97 Ist EDT$SC_TRUA + 1751 2 | 
. © { 
28 «AE OOF O089F PUSHAB DISP t 1753 34 
000000006 DD 00 Ag PUSHL €DT$$G_CS_CHNO : 3 | 
000000006 00 FB 0 A CALLS #2, EDT$$SC_FNDREC : 24 
000000006 00 30 00 0 Ar MOVE R 4 geOTSSA_CUR_SCRPTR : 3 
P e 4 
G D B : MOVL EDTS$SA_CSR_SCRPTR, EDTS$A_CUR_SCRPTR + 1755 34 

000000006 00 000000006 00 8B8 120$ $$ 

$5 Oc AE ES CORE? ates oauncbeecRo ieee” '“e® Gas | 
° Py ef 
0508 5 8CB BRW 1948 3 : a 
57 000000006 00 0d0 O8CE 122$: MOVL  EDT$SA_CUR_SCRPTR, SCRPTR : 1772 2 | 
59 D4 O80 CLRL = REC_NO : 177 3 
36 D4 0807 CLRL BELOW : 177% 3 
52 7C 00809 CLRG = AT_BOTTOM : 1781 24 
50 000000006 90 91 78 0808 123$: ASHL #17 EDTS$$G_SCR_LNS, RO + 1783 34 
. US Gees Age 2 : 
° e 4 
73 53 Es OBES BLBS AT BOTTOM, 130$ : 34 
57 05 008EB TSTL  SCRPTR + 1786 34 
50 12 O08ED BNEG  125$ : 34 
59 DD OBE PUSHL REC_NO : 1789 3 | 
000000006 00 " FB afl CALLS #1, EDTS$$SC_MOVTOLN : 3 
07 E8 008F8 BLBS . : 34 
000000006 00 6 FB 8F CALLS @ EDTSSINTER ERR : 34 
50 000000006 p 902 124$: MOVL  EDTS$A_WK_LN, RO : 1790 24 
7E 60 9A 009 MOVZBL (RO), =(SP) : 2 
07 AO OF 20¢ PUSHAB 7(ROS ; 3 | 
7E D4 0090F CLRL = = (SP) : 3 
000000006 00 FB 00911 CALLS #3, EDT$$SC_LNINS : FF 
58 f 918 MOV LNINS_VAL © exe 2 | 
56 R cd 0091 ADDL2 LNINS_VAL, BELOW : 179 3 
9 BG 9 INCL REC_N : 1798 2 
50 999000 06 0 F 9 MOVAB €EDTS$Z_E0B_LN, RO : 1800 3 
50 000000006 09 : 3 cMPL FDISSA_WK_CN, RO ; 2 
000000006 00 000000006 00 06 9 MOVL EDI$SA_LST_SCRPTR, EDT$S$A_EOB_SCRPTR > 1803 | 
1 D BRB 6 : 2) 

3 D i fF 125$: INCL arrow 1803 ; 

000000006 00 5 pe 941 CMPL SCRPTR, EDT$S$A_EOB_SCRPTR > 1814 : 
5 if} 948 BNEQ 8$ : Fi 
52 1 00 0094A 1268: MOVL #1, AT_BOTTOM : 1816 5 | 
C 11 00940 127$: 8RB 12%$ ; ai 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 01:43: AxX-11 Bliss-32 V4.0-74 
ite ttt EDT Te8scu UPD - upeate the screen 12: 300-1382 93:32:28 EDT SREISER UPBAYE Lf 
ia 


59 D4 OOA1 CLAL RO ; 
11 00A BRB 141$ : 
50 1 DO OOAC3 140$: MOVL #1, RO : 
3 14 00A206 141$:  BGTR 146s : 
D4 OOA CLRL DIST : 1916 
57 B 00 AOA MOVL Riis SCRPT : 191 
34 AE 000000006 00 06 AoD MOVC3 #6, Gare CS_LN, TEMP_LINE + 1918 
6E 34 My D1 A356 1428: CMPL Loy : 1920 
0 1 ASA BNEQ 43$ $ 
04 AE 38 «6 AE «BI OOASC CMPW HIGH. 1, 4(SP) : 
1 ad BEQL 145$7 : 
000000006 00 p AG3 1438: CMPL § TOP_DIST, EDT$$G_SCLL_BOT + 1921 
AGA BGEG 1458 : 
D5 OOA4C TSTL  SCRPTR + 1922 
1 15 OOA4 BEQL 145$ : 
08 A? 95 O0AS TSTB © 8 (SCRPTR) + 1925 
10 12 00A5 BNEQ 144$ ; 
50 4 AE dO 00A5 MOVL  LOW_1, SAVE : 
4 AE 07 OOAS DECL  FIRST.W : 
50 34 AF D1 OOASC CMPL = FARST= WORD, SAVE : 
0 1g OA6 BLEGU 144$ ~ : 
33 AE B7 00A6 DECW  NEXT_WORD : 
57 6 00 OA6S 144% MOVL (SCRPTRD SCRPTR : 1927 
gC 13 00A68 BEQL 142$ + 1929 
8 D6 OOA6A INCL TOP_DIST : 
C8 11 OOA6C BRB 1428 ; 1920 
6E 34 AE D1 OOASE 145%: CMPL  LOW1, (SP) : 1938 
19 12 OOA7 BNEG  146$ : 
04 AE 38 AE B1 O0A74 CMPW = HIGH_1, 4(SP) : 
12 12 S079 BNEQ 146$7 F 
0 56 58 C1 OOA7B ADDL3 TOP_DIST, BELOW, RO é 
000000006 00 50 01 OATE CMPL RO, EDT$$G_SCR_LNS ; 
05 19 AB BLSS Rees : 
5A O1 DO OOA MOVL #1, TOP_SET + 1940 
C 11 OOA8B BRB 147$ ; 
000000006 00 000000006 00 06 28 OOA8D 146$: MOVC3 #6, EDTSSL_LNO_EMPTY, EDTSSL_TOP_LN + 1942 
5D 5A E8 OOA99 147$: BL TOP_SET : 1952 
000000006 99 DS OOA9 TSTL EDTSSA_TOP_SCRPTR ; 
5 13 OOAA BEQL 151$ ; 
57 38 00 AAG MOVL R11, SCRPTR + 1955 
58 7C OOAA7 CLRO TOP DIST : 1957 
50 000000006 99 DO OOAA9 MOVL  EDTS$G_SCLL_BOT, RO : 1959 
50 D1 OOABO 148$:  CMPL TOP DIST, RO : 
1p 14 OOAB BGTR 1508 F 
000000006 00 57 D1 OOAB CMPL SCRPTR, EDTS$A_TOP_SCRPTR : 1960 
14 13 OOABC BEQL 1508 ; 
57 05 OOAB TSTL SCRPTR + 1961 
10 13 OOAC BEQL 150$ : 
08 a7 95 OOAC TSTB 8(SCRPTR) > 1964 
a cae : 
57 6 09 ACO 149$: MOV CSCRPTR) SCRPTR : 1966 
Eg 13 OOACC BEQL 148$ > 1968 
ne AC INCL  TOP_DIST ; 
AD BRB 1483 > 1959 
50 D1 OOAD2 150$:  CMPL TOP DIST, RO : 1977 
14 OOAD BGTR 1518 : 


N 14 
EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 243: AX-11 Bliss-32 V4.0-74 p 
104-000 EDTSES¢ UPD - update the screen 12786-1382 93:32:88 LED sre SCRUPDATE.BLI; aoe 5 
000000006 00 5 D4 Ap? cHPL TOP DIST, EDT$$G_SCLL_TOP ; 

0 5 ; C1 OOAE ADDL3 TOP_DIST, BELOW, RO : 1979 
000000006 i DI AEA CPL AQy -EDTS6C_SCR_LNS : 
000000006 00 p AED ChPL SRPTR, EDTS$A_TOP_SCRPTR + 1980 

5A 1 DO OOAF MOVL #1, TOP_SET + 1982 
5 A €E8 OOAF9 151$: BLBS TOP_SET> 156$ + 1994 
4 000000006 00 £9 OOAF BLBC = EDTS$G_SCR_REBUILD, 156$ : 
« 20 AE 00 008 MOVL CURSOR LIN R + 2001 
000000006 00 3 D 08 cMPL R 5g $6_SCLL_BOT : 
50 000000006 90 00 0819 MOVL § EDT$$G_SCLL_BOT, RO : 
000000006 00 : Di 0B! 152$: cMPL RO, EDTSSG_SCLL_TOP : 
50 000000006 00 DO 008 5 MOVL  EDT$$G_SCLL_TOP, RO : 
57 B DO 08 7 153$: MOVL R11, SCRPTR : 2002 
58 01 CE OOB2A MNEGL #1, TOP_DIST : 200 
57 05 OOB2D 154$: TSTL SCRPTR > 2005 
O¢ 13 OOB2F BEQL 155$ : 
50 58 D1 00831 CMPL  TOP_DIST, TARGET_LINE : 
07 13 00834 BEQL 1558 ; 
57 67 p0 00836 MOVL  (SCRPTR), SCRPTR + 2007 
8 D6 00839 INCL TOP_DIST : 2008 
FO 11 00838 BRB 1548 : 2005 
50 58 D1 00B3D 155$: CMPL § TOP_DIST, TARGET_LINE : 2011 
OF 1 00840 BNEQ 1568 : 
50 6 ¢ 00842 ADDL2 BELOW, RO : 
MPL 61$$G_SCR_LNS : 
000000006 00 30 DI 0845 CMPL RO, EDTS$ 
SA 01 00 OOB4E MOVL #1, TOP_SET : 2013 
76 5A £8 00851 156$: BLBS  TOP_SET> 165$ + 2022 
08 AE DS 00894 TSTL DIR + 2036 
19 18 00857 BGEG = 157$ : 
50 000000006 00 00 00859 MOVL.  EDT$$G_RECS_INSERTED, RO : 
51 50 20 AE CI 0860 ADDL3 CURSOR“LIN : : 
000000006 00 31 D} 9863 cMPL RI, EDTSSG_SCLL_BOT : 
50 05 0086 TSTL RO : 2037 
09 15 0087 BLEG 158$ : 
50 000000006 06 087 157$: HOVL EDI$$G_SCLL_BOT, TARGET_LINE > 2039 
50 000000006 00 DO 00878 158$: MOVL  EDT$$G_SCLL_TOP, TARGET_LINE + 2041 
52 000000006 60 & 0g OB 1283: SUBL3 BELOW ~ET$8G SéR_LNS, aS : soe} 
1 50 00 A MOVL  TARGET_LINE, Ri ; 
52 1 01 00B CMPL = R1,_R2 F 
18 008 BGEQ lebs : 
51 DO 0089 MOVL 2, RI : 
50 DO 00895 160$: MOVL 1, TARGET_LINE ; 
29 D4 0089: CLRL REC _NO + 2049 
57 B DO OOB9A MOVL R117 SCRPTR > 2050 
+t} g1 CE 00B MNEGL #1, TOP_DIST ; 3051 
7 0 AO 161%:  TSTL SCRPTR : 2053 
Q 13 OOBA BEQL 62$ ; 
50 p4 BA CMPL  TOP_DIST, TARGET_LINE : 
07 13 OOBA7 BEQL 1628 : 
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EDTSSCRUPDATE EDTSSCRU PDATE - update the screen 16-Sep- 3: AX-11 Bliss-32 V4.0-74 S 9 
Oe O00 EDTSSSC_UPD - update the screen 18: -Sep- aes 7 9}: $i ‘48 EDT. SRCISCRUPDATE.BLI; wigs RS 
01 000000006 D1 058 CMPL FDT$$G_TI_TYP, "1 : 2218 
D5 00084 PUSHL #2 t 2220 
F293 CF P tt PUSHAB P.AAC : 
$ 11 000 B 191$ : 
po 069 190$: PUSHL #2 : 2222 
F28F CF OF 00D6B PUSHAB P,AAD : 
000000006 09 EB DGr 191$: CALLS #2 EDTSSFMT LIT : 
1 900000006 EB 00076 BLFS  EDT$$G_TI_SCROLL, 1928 + 2235 
90000 G D4 D7 CLRL EDTSSG_MSGFLG + 2238 
$89998888, 95 99000006 FF Pe TERRE gts BBTeesragsetPbiaD #86510 : 38ep 
000000006 be D 3 1928:  ¢LRL EDts$c. cs LAO : 23 
DD 00098 PUSHL REC_NO + 2264 
000000006 00 Qi Fe 0090 CALLS #1," EDISSSC_ MOVTOLN : 
7 0 EB OODA4 BLBS RO, 193$ F 
000000006 00 0 FB OODA7 CALLS #0, EDTS$SINTER_ERR : 
1 DD OODAE 193$:  PUSHL #1 + 2245 
7 DD 0008 PUSHL SCRPTR : 
000000006 00 0¢ FB ODB2 CALLS #2, EDT$$SC_RFRELN : 
000000006 90 DO 00DB9 MOVL SCRPTR, EDT TSSA TOP_SCRPTR + 2246 
0 000000006 00 010 00Dc0 MOVL EDT$$A‘BOT_S + 2247 
000000006 00 $0 D0 donc? MOVL (RO), EDTSSA. “Bote SCRPTR : 
D6 ODCE INCL SLL NUM + 2248 
FE7F 31 99000 BRW 179$ + 2154 
54 000000006 00 DO 00DD3 194%: MOVL  EDTSS$A_TOP_SCRPTR, TOP_SCRPTR : 2258 
55 000000006 00 DO OODDA MOVL  EDT$$G~TOP~RECNO, TOP_RECNO > 2259 
08 14 AE €8 OODE1 195$: BLBS  SCROLLING_NEEDED, 1968 : 2271 
07 10 AE €E8 OODES BLBS § ERASE_ALL> 196$ : 
03 OC AE ES ODES BLBS § BUILD SCR, 196$ : 
0OA9 31 OODED BRW 204$ F 
59 55 00 ODEO 196$: MOVL | TOP_RECNO, REC_NO + 2274 
57 54 DO O0DF MOVL TOP “SCRPTR, SCRPTR : 2275 
20 AE 01 CE O0DFS MNEGL “CURSOR LINE > 2276 
000000006 00 D4 OODFA CLRL tptsse. cS_CN : 2277 
000000006 00 000000006 00 01 00E00 197$: CMPL EDTSSC_ CS“LNO, EDT$$G_SCR_LNS + 2279 
38 18 O0E0B BGEG 01$ ; 
57 05 OOEOD TSTL  SCRPTR : 
54 13 OOEOF BEQL 2018 : 
07 OD A7 93 00E11 BITB 13(SCRPTR), #7 + 2282 
4 OOE 15 BEQL 199% F 
59 DD 00E1 PUSHL  REC_NO > 2285 
000000006 1 FB 0€19 CALLS #1, EDT$$SC_MOVTOLN ; 
07 p E OE g LBS RO, 198$ ; 
000000006 00 FB OOE CALLS #0. EDT TSSINTER_ERR : 
10 Ag DD OE A 198$:  PUSHL ERASE ALL > 2286 
57 DD O00E2D PUSH SCRPTR : 
000000006 00 é FB OE OF CALLS #2, EDT$$SC_RFRELN ; 
00000006 00 DO 00E36 199$: MOVL  SCRPTR, EDTS$A_BOT_SCRPTR : 3289 
00000006 0 7 D1 00E3D CMPL SCRPTR, EDT$$A~CUR-SCRPTR > 2291 
6 12 00644 BNEG 60$ : 
20 Ag 000000006 DO 00E46 MOVL  EDT$$G_CS_LNO, CURSOR_LINE ; 
5 4 A? DO OOE4E 200$: MOVL 4(SCRPTR)> SCRPTR > 2293 
009000006 99 06 ODE INCL , EDT$$G_CS-LNO : 3 94 
p E TSTL SCRPTR + 2296 
AG ESA BEQL 197% F 
08 a7 95 00E5C TSTB  8(SCRPTR) : 2300 
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EDTSSCRUPDATE EDTSSCRUP pare = update the screen 16-50 p-1984 AX-11 Bliss-32 V4.0-74 Pp 

the tats EDT DTsee_uP ~ upbate the screen 1 at t 93:53 ‘48 ADT SReaseR RUPDATE.BLI; pe 3 

F 12 OOESF BNEQ 197$ ; 

9 p E INCL REC NO : 

8 E BRB 1 : 

5 bb DORR? Bush, REECND 

000000006 1 FB E CALLS are “gprsssc_ MOVTOLN : 

900000006 Fe £7 CALLS RO. DTSSINTER_ERR F 

G 000000006 p Ene 2028 CPL Hf 6_CS_LNO, EDT$$G_BOT_LINE ; 

G FB OOE CALLS #0, EDT$$SC_ERAAL ; 

S p G 000000006 p D y 3038: MOVL pts 6_CS_LNO, EDT$$G_BOT_LINE : 

G D 4$:  MOVL OP_RECNO, EDfS$ g TOP~RECRO : 

0000006 4D EAQ MOVL TOP“SCRPTR, EDTS$$A_TOP_SCRPTR : 

6 0 D4 OOEA CLRL = EDT$S$G_SCR_REBUIL ; 

G D4 EAD CLRL _ EDT$$G"ANY~ CHANGE 3 

000000006 G 6 DO OO0EB MOVL § EDT$S$ATCUR“SCRPTR, EDTS$A_CSR_SCRPTR : 

00 G 04 OOEBE CLRL = EDT$$G-RECS_ INS ; 

000000006 2% 00000006 00 00 ECA MOVL § EDTS$A"SEL_BUF, EDTSSA : 

000000006 00 000000006 00 00 OOECF MOVL § EDT$$G"CS_CHNO, EDTS$G~ et OP DEHNO : 

1C AE DD OOEDA PUSHL  CURSOR-POS ; 

24 AE DD OOEDD PUSHL CURSOR LINE : 

00000006 00 02 FB OEEO CALLS EDTS $sc_ OSCSIF 3 

00000006 00 1¢ AE DO OOEE MOVL CURSOR ~EpT$sc CUR_COL : 

000000006 00 20 AE DO OOEEF MOVL CURSOR -PohE. EDT$$G_CS~LNO : 

01 DD OOEF7 PUSHL HI ; 

000000006 00 o1 FB OOEF9 CALLS , EDT$$TI ENBLAUTREP ; 

000000006 00 0 FB 00FOO CALLS Ay EDTSSOU r FMTB ; 

50 000000006 00 9€ 00F07 MOVAB EDTS$T ROe ; 

000000006 00 50 000000006 00 c OOF OE ADDLS EDTS$67 tS -PHNO, RO, EDTS$A_LN_PTR ; 


; Routine Size: 3867 bytes, Routine Base: _EDTSCODE + OOOE 


3; 1768 2338 1 
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LINE = delete a Line on the screen 


RUPDATE = update the screen 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the scre 18-5¢ -1984 01:43: AX-11 Bliss-32 V4.0-74 Page 52 

104-000 DELETE_LINE = delete a line on the screen 1 23007138 93:32:28 EDT. SRCISCRUPDATE .BLI; . (4) 

; 1827 38 EDTSSSE_LNDEL ! Delete a Line from data structure ‘ 
3 8 9 EDTSSSC_SETSCLLREG, ! Set scrolling region : 
3; 1 38 EDTSSFMT_LIT ! formes a literal for output ‘ 
; 1830 9 EDTSSSC_POSCSIF : NOVALUE, i Position the cursor : 
3 ! 1 rts EDTSSSC_REPAINT : NOVALUE; ! Mark some Lines in the screen data base for repaint ; 
3 % : 60 = ; 
3 1 4 EDTSS$G_MSGFLG ! Is a message on the screen : 
> 1835 404 EDTS$$G_MESSAGE_LINE, i Line number for prompts : 
3 1 405 EDTS$G_TI_TYP ! Terminal type . 
; 18 4 EDT$$G_TI-EDIf, i vT102 editing features : 
; + 40 EDTS$G_SCR_LNS ' Number of Lines on screen ; 
: 1 408 EDT$$G_SCLC_TOP, i Top Line the cursor is allowed to be on ; 
; 1840 409 EDTS$G_SCLL_BOT ! Bottom Line the cursor is allowed to be on : 
3: 1841 410 EDTSSA_FST_SCRPTR REF SCREEN_LINE, ! First data structure pointer : 
3 Ha 411 EDTSSA_BOT_SCRPTR : REF SCREEN_LINE, ! Bottom screen pointer : 
> 184 tig EDTSSA_LST_SCRPTR : REF SCREEN_LINE, ! Last data structure pointer ; 
> 1844 41 EDTSSA_TOP_SCRPTR : REF SCREEN_LINE, : isp screen Line info address : 
3; 1845 £14 EDTSSA_EOB_SCRPTR : REF SCREEN_LINE, : screen pointer : 
3 1846 415 EDT$$G_CS_CNO ' current cursor Line : 
: 1847 416 EDT$$G_TI-SCROLL, i 7 = we have scrolling regions ; 
; 4 rh EDT$$G_BOT_LINE; ! ALL Lines below this one have been erased : 
; 1850 419 ; 
3; 1851 420 PRV_SCRPTR : REF SCREEN_LINE, ' Previous screen pointer : 
3 1936 421 NXT_SCRPTR : REF SCREEN_LINE, ' Next screen pointer > 
3; 185 4 ¢ TOP_SCRPTR : REF SCREEN_LINE, ! Top screen pointer (at entry) . 
; 1338 re SCLC_CENTER; ! Number of center screen Line : 
3 1856 34 5 PRV_SCRPTR = .SCRPTR FSCR_PRV_LINE]; : 
3; 1857 426 NXT_SCRPTR = .SCRPTR CSCR_NXT_LINEJ; : 
; 1858 2427 TOP_SCRPTR = .EDTSSA_TOP_SCRPTR; : 
; $3 +58 SCLC_CENTER = (.EDTSSG_STLL_TOP + -EDT$$G_SCLL_BOT)/2; ‘ 
>; 1861 686 ! If we are Soteting the top Line, make the following Line the top line ’ 
; 1366 431 ! unless there are lines preceding it that have been modified or inserted, : 
3 1397 138 in which case we will paint over the deleted Line instead of scrolling. ; 
3; 1865 434 ’ 
3; 1866 435 IF (.SCRPTR EQLA .TOP_SCRPTR) ’ 
3 1867 sees : 
3; 1868 43 BEGIN : 
3; 1869 438 : 
3; 1870 439 4 IF (.PRV_SCRPTR NEQA 0) : 
; 1871 440 THEN : 
3 1376 441 + ; 
5 4 i Test for insertion or modification of previous Lines. : 
> 1875 bbe 3 
; 1876 445 4 IF ((.PRV_SCRPTR CSCR_EDIT_FLAGS] AND (SCR_EDIT_INSLN OR SCR_EDIT_MODIFY)) NEQ 0) : 
3 187 rr) 3 HEN : 
3; 1878 447 4 BEGIN : 
3; 1879 448 4 !+ , 
3 1 449 4 ! Delete the current Line and backup to the previous line for a 3 
3 133) 450 4! repaint. The top screen pointer and record number offsets : 
; 7 ¢ 451 4 ! must also be updated. No further processing is needed on this pass. : 
3; 188 452 4 ! The new top Line will be repainted on the next pass. : 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 
104-000 DELETE_LINE = delete a Line on the screen 1 =3007 1382 93:52:28 EDT SREISCRUPBAYE OL 444 
Bes d é Ae 
; } " 2 IF (.SCRPTR CSCR_LINE_IDX] EQL 0) THEN .OLD_TOP_RECNO = ..OLD_TOP_RECNO - 1; 
; 1888 4 : & EDTSSSC_LNDEL (.SCRPTR); 
; 1889 4 8 4 EDTSSA_TOF -SCRPTR = .PRV_SCRPTR; 
3 4 4 RETURN (0); 
; 1891 460 END; 
3% 4 461 
3; 189 re '¢ 
; : Be ree The previous Line is non-existent or has not been modified. Handle this in the usual way. 
3 } 39 48s END; 
3; 1898 rh, IF (CC, EDTSSA_EOB_SCRPTR EQLA .EDTSSA_BOT_SCRPTR) OR (.EDTS$S$G_CS_LNO LEQ .SCLL_CENTER)) : 
3; 1899 46 AND (.TOP_SCRPTR CSCR_PRV_LINE] NEQA 0)) 
; 1900 4 THEN 
; 1901 470 BEGIN 
; 1308 471 '¢ 
; 190 47 ! The buffer is Long, gnough that there is a Line before the top line that aresary on the screen, 
3 1904 47 ! and either the CE appears on the screen or the line being deleted is above the center of 
3; 1905 474 ! the screen. We will be scrolling down, eringine anew Line onto the top screen Line. 
3; 1906 475 ! Move the top screen pointer up one line. This must be done before deleting 
: 13 rts } the current Line in case the top Line is the current Line. 
; 1909 478 , EDTS$A_TOP_SCRPTR = .TOP_SCRPTR CSCR_PRV_LINE); 
3 1911 480 ' Adjust the record number of the top Line. 
: 1918 ta 3 
; 1916 483 IF (.TOP_SCRPTR CSCR_LINE_IDX] EQL 0) THEN .OLD_TOP_RECNO = ..OLD_TOP_RECNO - 1; 
3: 1916 485 ; IF .EDTS$$G_TI_SCROLL 
3 1917 486 THEN 
3; 1918 487 4 BEGIN 
3 1919 488 4 
: 1920 489 4 CAL 
3 1921 490 4 TMP_SCRPTR : REF SCREEN_LINE, 
3; 19 ; 491 4 SCLC_LINE; 
3 19 492 4 
3 1924 493 4 !¢ 
3 Hb 5 £08 2 : Use the scrolling region or DL command to avoid having to repaint part of the screen. 
3 19 § 496 4 SCLL_LINE = .EDT$$G_CS_LNO; 
3; 1928 497 4 TMP_SCRPTR = .SCRPTR; 
3; 1929 498 4 !+ d 
3 19 499 4 ! To speed up deletes, the scrolling Line will be the Last Line 
3; 1931 5 4 ! for which we will scroll down. 
3 19 § 501 4 !- 
3 19 5 § & 
3; 19 5 & 
3: 1935 5 BEGIN 
3 19 : 5 SCLL_LINE = .SCLL_LINE + 1; 
; 19 3 TMP_SCRPTR = .TMPSCRPTR CSCR_NXT_LINEJ; 
3; 1939 5 UNTIL (((. TMP_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0) OR ' 
3 1940 5 & ((,SCLL_LINE GTR .SCLC_CENTER) AND (.EDTSSA_EOB_SCRPTR NEQA .EDTSSA_BOT_SCRPTR))); 
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DATE = update the screen 18-5 -1984 01:43: Ax-11 8 -32 V4.0-74 
NE = delete a line on the screen 1 ~3007 138% 93:33:28 ODT RED peave toute 


EQTSSCRUPDATE 
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@D 
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1+ 
Scroll down 


EDTS$SC_SETSCLLREG (0, .SCLL_LINE); 
EDTS$SC-POSCSIF (0, 05; 
EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C'M')), 2); 
EDTSSSC_CNDEL (.SCRPTR); 
END 
ELSE 
BEGIN 


1+ 

! We do not have scrolling tg henge If the Line to be deleted is high 
! on the screen then repaint from the top Line to the current line. If 
!' the Line to be deleted is low on the screen, scroll the screen down 
and repaint the Lines below this one. 


PRRRRAREL EE EE EEE 


ODONANE WO OONOULS wn 


O00 
mun 


aati atta LEQ (.EDT$$G_BOT_LINE/2)) 
i BEGIN 
i We have a high Line, so we will “oe the top of the screen. 
! Ignore deleted Lines right after this one, since there could be enough to 
} make us decide to also repaint the bottom half of the screen. 
EDTSS$SC_LNDEL (.SCRPTR); 


IF ((,SCRPTR NEQA .EDTSS$A_BOT_SCRPTR) AND : 
((.NXT_SCRPTR ESCR_EDTT_FCAGSJ AND SCR_EDIT_DELLN) NEQ 0)) 


DELETE_LINE (.NXT_SCRPTR, .OLD_TOP_RECNO); 


END 
ELSE 
BEGIN 


'¢ 


SANS NNN 
BSS RB SSESFSSSTSE 
DD PUPP BB BB BB EE BE ANIA NIIP PIPOPOPINPUNDDY) 9 SS OS eS 


ee ee ee a a a a ee a a ee ee a ee a a a lc a a a ee a ee 
PIPPI PIPIPINPIPIPDPPINPINIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPOPINPIPUPIPIPIPIPIPIPIPIPIPIPIPUPOPUPINPIPIPIFUIPINIFUNY OOM 
SOF ORS SRS ARUN 2 SSRN WO OOo WOU RUD HO DOS NOUN UMN OOOO NOME UNIO me 


§ EDTSS$SC_POSCSIF (0, 0); 

¢ IF (.EDTS$SG_TI_TYP EQL TERM_VT52) : 

338 EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C°I")), 2) 

988 EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, 2C°M')), 2); 

3 Make sure the message area is blank, since we may have moved text into the message area. 
99 BEGIN 

994 

995 LOCAL 

51 SAV_CS_LN; 


P 4 E 
_ a} v0 


IF (.PRV_SCRPTR NEQA 0) THEN EDTSSSC_REPAINT (.EDTSSA_TOP_SCRPTR, .PRV_SCRPTR, 0, 255, 0); 


We have a low Line. Scroll the whole screen down and repaint the Lines below the deleted Line. 
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EDTSSCRUPDATE EDTSSCRUPDATE - update the screen 1a-Se -1984 01:43: AX-11 Bliss-32 V4.0-74 Page 55 ED 
VOu=000 DELETE_LINE = delete @ Line on the screen VenSep-1984 foiseses — EEDT SREISERUPDATE OL I. 9 a) vO 
3 1 rt § EDTSSG_MSGFLG = 0; 
31 SAV gS-LN = ,EDT$$G g§ LNO; 
; $ 6 EDTS$G-CS_LNO = .EDTS$$G_SCR_LNS; 
3 1 EDTSS$SC_ERAALL (); 
; ; 7 EDT$$G_CS_LNO = .SAV_CS_LN; 
: if re END; 
; $08 378 ! Now mark the bottom of the screen to be repainted. 
; 803 i : EDTSSSC_REPAINT (.SCRPTR, .EDTSSA_LST_SCRPTR, 0, 255, 1); 
; 2008 Qf 4 END; 
; ite 258 END; 
By ae eo 
: $18 5 é ELSE 
ee a 
; aig 585 i Either there is no Line before the current fop Line or the cursor is below the 
; 201 286 ! center of the screen. Scroll up, which will bring a new Line onto the 
3; 2018 58 ! bottom Line of the screen, unless the CEOB) is aiready on the screen. 
3; 2019 588 ! If we are deleting the top Line, make the next Line the top line. We don't need to 
3; 2020 589 ! worry about the top Line record number since deleted Lines have the record number 
3 ; 2 a09 } of the next following non-deleted Line. 
: 20 59 
3 3s 398 IF (.SCRPTR EQLA .TOP_SCRPTR) THEN EDTSSA_TOP_SCRPTR = .NXT_SCRPTR; 
; , $ 332 3 i ((.EDTS$G_TI_SCROLL) AND (.EDTS$G_CS_LNO LSS (.EDTS$$G_SCR_LNS - 1))) 
; 8 537 a BEGIN 
; 0 599 4 | Set the scrolling region so we can update the screen without repainting text 
3 O33 600 4 ! that has moved up. 
; O83 $02 6 
: 20 £08 5 IF (.€DT$$G_TI_EDIT) 
imo) ip 
; 9 606 4 Use VT102 edit feature 
F 639 608 : BEGIN 
3; 2040 60 DISSSC_SETSCLLREG (0, .EDT$$G_SCR_LNS); 
: 941 610 EDT$$SC-POSCSIF (.EDT$$G_CS_LNO, OY; 
2 § a EOTSSPAT_LIT (UPLIT (ZSTRING (ZEHAR (ASC_K_ESC), ‘CM')), 3); 
; bed gig 4 ELSE 
3 5 oi3 ~ BEGIN 
; ; 616 Simulate edit feature. 
: 9 o18 " EDTSSSC_SETSCLLREG (.EDT$$G_CS_LNO, .EDT$$G_SCR_LNS); 
3: 2050 61 EDTSSSC-POSCSIF (.EDT$$G_SCR_LAS - Dd: 
3 2051 620 EDTSSFMT_LIT (UPLIT (ZCHAR (ASC_K_LFS), 1); 
: 26 ? END; 
> 2054 6 5 4 '+ 
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EDTSSCRUPDATE EDTSSCRUPDATE - update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 P 
104-000 DELETE_LINE =- delete a line on the screen 12286871388 93:32:28 EDT .SRCISCRUPDAYE.OL. nu 3 
3 5 6 $ $ Free the deleted Line. 
; é g 4 EDTSSSC_LNDEL (.SCRPTR); 
: 6208 3 ELSE 
3 Sey ? ; 2 rm BEGIN 
; oe8 631 4 | If we cannot use the scrolling oe repaint the screen from the point 
; 206 6 § 4 ! of the deletion to the bottom. If we're deleting a high line, then 
; 2064 6 4 ! scroll up instead of repainting the whole bottom. 
3; 2065 : ? te 
; $e 6 5 IF (.EDT$$G_CS_LNO LEQ (.EDT$$G_BOT_LINE/2)) 
3; 2068 637 & THEN 
3 O70 ° 3 i BEGIN 
: 71 640 i The Line being deleted is high on the screen. Scroll the screen and int 
3 ors 641 ' all of the thes above the deleted Line. sft acon 
3; 207 o6 t= 
: ie: bai LOCAL 
; 97 645 3 SAV_CS_LN; 
: 2078 eto 5 EDTSS$SC_REPAINT (.TOP_SCRPTR, .SCRPTR, 0, 255, 1); 
: 2079 648 5 SAV_CS_CN = .EDT$$G_CS_LNO; 
; 2080 649 EDTSS$SC_POSCSIF (.EDTSSG_MESSAGE_LINE + 1, 0); 
3 ‘ed 529 i EDTSSFMT_LIT (UPLIT (BYTE (ASC_K-LF)), 1); 
; Ob: $36 5 If we've done a scroll then the message is no longer on the screen. 
; 2085 seau 8 EDTS$G_MSGFLG = 0; ; 
3; 2086 655 5 EDTS$$G_BOT_LINE = .EDT$$G_BOT_LINE + 1; 
3; 2087 636 : EDTS$G_CS_CNO = .EDTS$$G_SCR_LAS; 
3; 2088 65 EDTSSSC_ERAALL (); 
; 089 638 3 EDTS$G_CS_LNO =  SAV_CS_LN; 
> 2091 660 4 ELSE 
3 44 $8) 5 te BEGIN 
; ae oe$ 2 : The Line being deleted is low on the screen. Repaint it and all Lines below it. 
5 2096 665 : ; EDTSSSC_REPAINT (.SCRPTR, .EDTSSA_LST_SCRPTR, 0. 255, 1); 
3; 2097 066 4 END; 
F 668 END; 
me eb . 
: 19¢ of ! Adjust the bottom screen pointer if it is not the E0B. 
; el 67 : 
: ’ 5 ore 4 ad ((. EDTSSA_BOT_SCRPTR NEQA 0) AND (.EDTSSA_BOT_SCRPTR NEQA .EDTSS$A_EOB_SCRPTR)) 
; i ors EDTSSA_BOT_SCRPTR = .EDTS$A_BOT_SCRPTR CSCR_NXT_LINE); 
: 21 67 END; 
BR 
3: 2111 680 '¢ 


eaTeareroare 
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EDTSSCRUPDATE = update the screen 16- $ep-1984 01:43:2 AX-11 Bliss-32 V4.0-742 
DELETE_LINE - delete a line on the screen Haat n 93: 724: 43 EDT. SRCISCRUPDATE .BLI;1 
° 1 i. Make another pass over the screen data. 
6 : RETURN (0); 
684 END; ! of routine DELETE_LINE 
F29 -BLKB 
4D 1B F2C P.AAE BYTE vo 88 
F -BLKB 
49 1B F30 P.AAF: .BYTE te Va 
F -BLKB 
4D 18 F354 P.AAG: .BYTE ae 
F -BLKB 
00 4D 5B 1 F38 P.AAH ASCII <27>\CM\<0> 
00 00 00 OA OOFSC P.AAI ASCII <10><0><0><0> 
OA OOF4O P.AAJ BYTE 10 


~EXTRN EDTSSSC_LNDEL, EDTS$G_TI_EDIT 
OFFC 00000 DELETE_LINE: 
- WORD 


0 Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
5B 000000006 00 9€ 00002 MOVAB EDT$$G_SCR'LNS, R11_ 
5a 000000006 00 9E 00009 MOVAB EDTS$ST poscsi# R10 
59 000000006 00 4 0010 MOVAB EDTS$G ¢_ts » Rd 
52 04 A B 0017 MOVL SCRPTR Ra 
54 62 7D 00018 MOV = (R2) bav 
53 000000006 00 00 COOlE MOVL EDTS$A PrOPS SCRPTR TOP_SCRPTR 
G G ¢1 ADDL3 EDT$$G-SCLC_BOT, pTss SCLL_TOP, RO 
50 00000000 0 000000006 00 c! 00 ; aDDL3 $36" cL BOT if c_ 
96 D4 00035 CLRL age FO 
53 52 D1 00037 CMPL R2, TOP_SCRPTR 
2 12 0003A BNEQ 2$ 
7 C0 90 C INCL _R? 
54 D5 0003E TSTL | PRV_SCRPTR 
20 13 00040 BEQL 2$~ 
03 OD A4 %3 0042 BITB § 13(PRV_SCRPTR), #3 
1A 13 00046 BEQL 28 
08 Ae 95 00048 TSTB =: &(R2) 
0 12 00048 BNEQ 1$ 
08 BC D7 0004D DECL  @OLD_TOP_RECNO 
DD 00050 1$ PUSHL R2 
000000006 00 01 FB 0005 CALLS #1, EDT$SSC_LNDEL 
000000006 00 34 p 905 MOVL PRV_SCRPTR. “EDTSSA. TOP_SCRPTR 
0 000 G D Ose 2$ MOVL § EDT$$G_TI_SCROLL 
8 099000006 ° eS O06 MOVL  EDTS$A~EOB_SCRPTR, RD 
31 000000006 D0 9070 MOVL EDTSSAq BOT"SCRPTR, R1 
0 oF 7A BEQL «6 4S 
58 : 1 0007¢ CMPL § EDT$$G_CS_LNO, SCLL_CENTER 
5 0007F BLEG 46 4$ 
00F4 31 1 3$: RW 16$ 
é p 4s: STL  (TOP_SCRPTR) 
F BEQL © 3$ 
000000006 00 6 p MOVL § (TOP_SCRPTR), EDT$$A_TOP_SCRPTR 
08 A F TSTB © 8( TOP_SCRPTRS 


<m 
oe 


om om 2 Oe Om Om me me me me oe ee ee ee ee es a ee a ae a a as a a a a ae 


M15 
EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 

100-000 DELETE_LINE = delete a line on the screen 132300-1 382 93:52:28 EDT SREISERUPBAYE. OL 144 seer dB 

03 1 9 BNEQ 5$ ; 

08 § i$ 3¢ DECL  @0LD_TOP_RECNO ; 
57 D9 97 5$ MOVL EDTS$G_CS LNO, R7 + 2496 

44 9 E 9A BLBC RQ, 9 ; 

23 D 9D MOVIL R7, SCLL_LINE : 
0 : D A MOVL R2. TMP SCRPTR + 2497 
D A3 6$: INCL  S$CLL_LIRE + 2505 
50 04 A D A MOVL 4(TMP_SCRPTR) Yom =SERPTR 3; 2506 
OA 0D Ad Q z a9 BBC #2, 13(TMP_SCRPTR); : 2508 
§ D1 AE CMPL  SCLL_LINE, ~SCLL_CENTER + 2509 

FO 15 0008 BLEG 46s «6$ : 

51 56 p4 08 CMPL = R6, RI ; 

ge 1 B BEQL 6$ : 
od 0 7$: PUSHL  SCLL_LINE > 2514 

43 D4 O00BA CLRL. =(SPY : 

000000006 00 Q FB 000B CALLS #2, EDT$$SC_SETSCLLREG ; 
7¢ 99¢ CLRQ —_ = (§P) : : 2515 

6A 02 FB 9 ¢ CALLS We. EDTS$SC_POSCSIF : 
02 oD 000C8 PUSHL # + 2516 

FFID CF 9F OOOCA PUSHAB P.AAE ; 

000000006 00 Og FB OOCE CALLS 2, EDTSSFMT_LIT : 
DD 000D PUSHL R : 2517 

000000006 00 oi FB 00007 CALLS #1, EDTS$S$SC_LNDEL : 
0186 31 OOODE 8$: BRW 23$ + 2485 
51 000000006 00 02 (7 O000E1 9$: DIVL3 . EDTS$$G_BOT_LINE, R1 + 2528 

51 57 D1 O00E9 CMPL =e R7, RI ; 

37 14 OOOEC BGTR 11$ ; 
52 DD OOEE PUSHL R2 : 2536 

000000006 00 gi FB OOOF CALLS #1, EDT$$SC_LNDEL ; 

G D F CMPL R2. EDTS$SA_BOT_SCRPTR : 
000000006 00 32 Dt OOF? cHPL $$A_6 2538 
OA OD AS 02 €1 09105 BBC #2, 13(NXT_SCRPTR), 10$ : 2539 
08 AC DD 00105 PUSHL OLD_TOP_RECNO : 2541 

55 DD 00108 PUSHL NXT-SCRPTR : 

FEF1 CF ge FB OO10A CALLS #2, DELETE_LINE ; 
4 D5 OO10F 10$:  TSTL  PRV_SCRPTR : 2543 

$2 13 00111 BEQL 15$ : 

E D4 O13 LRL = =< SP) : 

7E FF eF 9A 0011 MOVZBL #255, =(SP) ; 

E D4 00119 CLRL = = (SP ; 

54 DD 0011B PUSHL PRV_SCRPTR : 

000000006 00 oD 0011 PUSHL EDTSSA_TOP_SCRPTR : 

49 11 001 BRB 14$ : 
7E 7€ 00105 11$: CLRQ =(SP) : 2551 

6A FB 001 CALLS #2 EDTSSSC POSCSIF ; 
01 000000006 pt A CHL FDts G_TI_TYP, #1 : 2553 
5 pp 1 PUSHL 3 : 2555 

FEB6 «6CF OOF «001 PUSHAB P.AAF : 

; 11 001 BRB 3s : 
po 138 12$:  PUSHL # : 2557 

FEB2 CF 9F 001 PUSHAB P.AAG : 

000000006 00 Fe 141 138: CALLS #2 EDTSSEMT LIT ; 
000000006 D4 00148 CLRL «EDF S$$G_MSGFLG > 2567 
BS Seis ROME EBTBEE- Cees SEBnGScts uno 3 
000000006 86 80 8 134 CALLS iO. EDTSSSCCERAALL ‘Altes ; 2570 


Page 59 
N15 ; . iss-32 V4.0-74 
VenSep-19be 280208 — EDT SReISCRUPBATE OL I. 
EDTSSCRUPDATE = update the screen 14-Sep-1984 12:24: 
EDTSSCRUPDATE ETE_LINE = delete a Line on SAV_CS_LN, EDTS$G.CS_LNO 
voe- ae 3 D0 00158 MOVL cS. ; 
“ 2 a eo ; 
‘ =o a4 i BUSH. EDTSSA_LST_SCRPTR 
000000006 PUSHL i 
z : RBG ius, HEN corssc-renum : 
000000006 ; 00 f 29 178 188: nove oat SCRPTR, EDTS$A_TOP_SCRPTR : 
scree: i 8 ES 001 H 178: tee Oe DTS$G SCR_LNS, RO ; 
5 01 C3 001 EMPL’ EDFS$G_¢8. CNO. "RO ; 
- $6 9 1 00189 Bcea 0S 
50 te oovac MOVL —_-EDTSSG_SCR_LNS, RO ; 
50 08 13F BLBC —EDTSSGITI EDIT, 188 
1A 000000006 6 EF OOS PUSHL RO ; 
5 PB O19 ALLS We EDTSSSC_SETSCLLREG 
0G 00 CLRL © =(SP) ; 
— a ae 2 
‘d ; 
: Of op Boia BUSH : 
reer th 74 ooteo BRB «198 
50 DD 016? 188: PUSHL EDTS$6_CS_LNO : 
82 FB 00186 CALLS 2,  EDTSSSC_SETSCLLREG 
06 00 02 F CLRL_ =< SP) salt ieee 
7E ane 68 of c3 OOtBe carts | #2" EDTSset POSCSIF 
A be PUSHL #1 ; 
: CF OF Gales CALLS. #3, EDTSSEMT_LIT 
eer 6b Fe oolee 198: Eats small 
someone 00 RBI ENB esssc ue : 
val bos é as Cf T_LINE, RO : 
ee 00 i SIDE 20$: DIVL3 #2. EDTS$6,0r_L1 ; 
50 000000006 99 Og ot BOtDE cHPL EDISSG_CS_ | 
ot DD OOlEs PUSHL 1 ei 
BF OR O1ED MOVZBL #035. “(S : 
" OTE be Oote ot a 
i Dd OOtES CALLS WS, “ED TSSSC_REPAINT ; 
05 FB OO1F? ROVE” EDTS$G C$ CRO” SAV_CS_LN ; 
000000006 90 23 pO OOIFE ve EDF SS6_cS_ ai 
Of PT 00308 ADDLS. 1 EDTSSG MESSAGE LINE, 
7 000000006 90 te fs ° CALLS #2, EDISSSC_ : 
PUSHAB P,AAJ 
peer 0 a ee ey : 
a) ee ae ee 2 
4 00 FB i CALLS #0, EDTS$SC_ERAALL 
000000006 00 


Xa ™mMIooOW 
™"MNOOWZSr xzAce 
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16 
EDTSSCRUPDATE EDTSSCRUPDATE = update the screen ibe =1984 01:43:2 AX-11 Bliss-32 v4.0- 742 
v04 DELETE_LINE - delete a line on the screen 14 a-Sep-19 4 12:24: +48 teoT. SRC SCRUPDA €.BLI;1 
69 3 DO 00231 MOVL SAy_CS. _LN, EDT$$G_CS_LNO 
11 00 BRB 2$ 
MH DD 00236 21$: — PUSHL HI 
7E FF f 9A 00 8 MOV ZBL #255 -(SP) 
000000006 iH DD 0 3 BU HL ie _LST_SCRPTR 
000000006 99 6 F 46 ALLS #5, EDT$$SC_REPAINT 
000000006 06 p 4p 228: Rov gots A_BOT_SCRPTR, RO 
000000006 00 ; p 6 CHPL RO, E EDT$$A_E08_SCRPTR 
000000006 00 06 AO D MOVL £0), EDT$$A_BOT_SCRPTR 
5 bi 67 23$: CLRL 


; Routine Size: 618 bytes, Routine Base: _EDTSCODE + OF41 


v4 


POPIPIPOPIRIMPIPININIPIPINIPINIPO NON Ny Nononynonys 


NNNAAAAAAAOH PAAAVMMUIUIVIVT Fo? oF ar ol”, | OA IITOTNIN IOI INI at 
SNIVSS SIS SS OS IS SSNS UNAS SSNS EGA LESSS UMEFWN CO OONOULSWNOOO~N 


ErRroate 
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EDTSSCRUPDATE = update the screen 1b-3¢ -1984 01:43: AX-11 Bliss-32 V4.0-74 
INSERT_LINE = insert a line on the screen 1 =3007 138% 93:52:85 EDT SREISERUPDAYE OL 14 
$ 5 ZSBTTL_ “INSERT_LINE = insert a Line on the screen’ 

ROUTINE INSERT_LINE ( ! Insert a Line on the screen 
6 SCRPTR, ! The Line to insert 
6 3 REC_NO ' It's relative record number 
6 OLD-TOP_RECNO i Record number of the top Line 

= 

691 
69 ++ 
ah FUNCTIONAL DESCRIPTION: 
695 Insert one screen Line. It may be mar ed inserted or deleted. 
24 This routine is not called unless it has some kind of edit. 
228 FORMAL PARAMETERS: 
is SCRPTR The screen data block to insert 
4 REC_NO The relative record number of that Line 
704 OLD_TOP_RECNO Record number of the top Line 


IMPLICIT INPUTS: 


EDT$$G_T1_SCROLL 
EDTSSA_TOB_SCRPTR 


EDT$$G_SCLL~TOP 
DT$$G_B0T SCRPTR 
T$$G_cS_CNO 


mmnmnmm 
Lh) = 
PAH 
ow 
oe 

iy 
=~ 

t 


T 
EDT$$G_MSGFLG 
EDT$$G_T1_TYP 


IMPLICIT OUTPUTS: 

EDTSSA_TOP_SCRPTR 

EDTSSA_BOT_SCRPTR 

EDT$$G_BOT_LINE 

EDTSS$G_MSGFLG 
ROUTINE VALUE: 

1 = repaint this Line and continue this pass, 0 = must start update over 
SIDE EFFECTS: 


Will store into the format buffer 


MMNNONININ) 4 3 SS OOO 


OG ines ote bess oO 
BEUSLSSSVECRAS SSeNeneranw—soowewen 


—OOe 


BEGIN 


PIII west et st st st st wk a tk kh hk kk tk tk ht ht 


QQ NS SSN NN NNN 


POPP PININININPDPINDNPYIDINININPININININIPINYINPINININIPYNINYNININPIPINNPOTY 


MAP 
SCRPTR : REF SCREEN_LINE; 


ae 


roe 
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EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 Page 62 
104000 INSERT_LINE = insert a line on the screen 12-8681 382 93:32:28 YEbT SREISCRUPDAYE OL 124 . (85 
: 2174 4g CxTER, ROUTINE 
3; 2175 74 pT SSC_LNDEL, ! Free a deleted Line 
3 178 74k DTSSSC_SETSCLLREG, ! Set scrolling region 
3: 217 745 EDTSSFMT_LIT ' format a literal for output 
i: 3178 246 EDTS$SC_POSCSIF : NOVALUE i Position the cursor 
: 217 74 EDTS$$SC_ERATOEOL : NOVALUE, i Erase to end of Line 
; 2180 oe EDTSSSC_MOVTOLN, ! Move to a record in the work file relative to the current record 
3 13) 74 EDTSSSC_ERAALL : NOVALUE ! Erase part 9 the screen 
; 18¢ if ? EDTSS$SC_REPAINT : NOVALUE; ! Mark some Lines in the screen data base for repaint 
3; 2184 7 § caren, 
>; 2185 7 EDTSSG_MESSAGE_LINE, ' Ling mumver for error msgs 
3: 21 754 EDTS$G_TI_EDIT, ! VT102 editing features 
: 21 755 EDTS$$G_SCR_LNS ! Number of Lines on screen 
; 2188 £38 EDT$$G_SCLC_TOP, ! Top line the cursor is allowed to stay on 
; 2189 75 EDTS$$G_SCLL_BOT ! Bottom Line the curser is allowed to stay on 
> 2190 758 EDTS$$SA_BOT_SCRPTR : REF SCREEN_LINE, | Bottom screen pointer 
3 2191 759 EDTSSA_LST_SCRPTR : REF SCREEN_LINE, ! Last data structure pointer 
3 136 760 EDTSSA_TOP_SCRPTR : REF SCREEN_LINE, ' Top screen Line info address 
3; 219 761 EDTSS$A_EOB SCRPTR : REF SCREEN_LINE, ! €0B screen pointer 
3 2194 166 EDT$$G_CS_CNO ! current cursor Line 
; 2195 76 EDT$$G_TI-SCROLL, ! 1 = we have scrolling regions 
; 138 764 EDTSS$G_TI_TYP, ! Terminal type 
3; 219 765 EDT$$G_BOT _LINE, ! ALL Lines below this one have been erased 
3 2199 i EDTS$G_MSGFLG; ! 1 = there is a message on the screen 
; 2200 768 CAL 
; 2201 769 NXT_SCRPTR : REF SCREEN_LINE, ' Next screen pointer 
; $506 770 2 SCLC_CENTER; ! The center Line of the screen 
: $500 He $ 
; '¢ 
3 2205 ae There must always be a line after an inserted Line, since the CEOB] is never inserted. 
H $509 othe NXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); 
; sss $776 ASSERT (.NXT_SCRPTR NEQA 0); 
3; 2210 778 IF ((.NXT_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) 
3 $i 779 THEN 
3 221 780 BEGIN 
; $! 781 + 
3 2214 78 !' The next Line is deleted. Combine an inserted Line and a deleted Line by 
; 1? At : just repainting the inserted Line and ignoring the deleted Line. 
; " 5 im EDTSSSC_REPAINT (.SCRPTR, .NXT_SCRPTR, 0, 255, 1); 
: 2219 FB ! Erase the deleted Line so we can just paint the inserted Line over it as though 
5 res we had opened a line for the inserted text. 
; $ 790 EDTSSSC_POSCSIF (.EDT$$G_CS_LNO, 0); 
3 791 EDTS$SC GRATOEOL Q); 
3 & 79 RETURN 71); 
; 5 79 END; 
: $559 ros 5 
Py 7¢ 
3 8 : Decide whether we will be scrolling up or down. If we scroll up then the Lines above 
: 798 ! is removed from the screen. es below the inserted line are not changed. 


! the inserted line are moved up te make room for the inserted Line, and the tag tine 


wm 
CoD COCDCDCO~ 


BSRLEARGNW— OS 


mmr 
PWAWAW AW NAAAIRIDIPUNINPNONNINIDYD 2 OO OO ew ew 


AMAA UIUIVIVIVIE BB EPP LEE 
WN — SO OOBNAOUSWN “OOO NOUS WN) "0O0@ 


AA 


o 
SHISAF 
SOWONOUEWN $$ O OONAOUES WN "OVD ONOULS WHO 


POTUPIPIPIPONININIPINU PP NoTPoNononn 


4 


SANS 
MEW —OOCONOUS wh 


PIPIPINIMIAIMINININYNINYPINININININPI PIPPIN PPO NNN fPonofonofnonofnornyd 
MIPSPOTUNINONY 


SEEEEE RE 


0000 
wn 


aro 


RIPIPIPDPONINININININININININININYNININININININININIAININPINIAIPUPINPIPIPIPIPIPUPIPINIPIPIPIPIPIPINPIPIPIPUPIPUNININY rN 


Be Ge Se Ge Ge Se Ge Be Se Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Se Ge Ge Fe SH Fe Se Oe Se Ge Ge Ge Se Se Fe Ge Se Se Fe Se Ge oe Ge SOSH Se Se Se Se Se ee OH Ge SH ee ee ee 


Mroforforofory 


Ronoforors 
009000000 00 
WIM 


Se 


D 
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PDATE = update th -$ep-1984 :43: AX-11 iss- 4.0-74 
rere update the screen 18 Sep 1384 91:53:38 X-11 Bliss-32 V4.0-7 
'¢ 
; ¢ 
1 


insert a Line on the screen -Sep-1 EDT.SRCJSCRUPDATE.BLI; 


croll down then the Lines below the inserted Line are moved down to make room for 
he inserted Line, and the bottom Line, if there is one, is removed from the screen. 


SCLL_CENTER = (.EDTSSG_SCLL_TOP + .EDTS$G_SCLL_BOT)/2; 
if SC -EDTSS6_CS_LNO GEQ .SCLL_CENTER) AND (.EDTS$G_BOT_LINE GEQ .EDTS$$G_SCR_LNS)) 
BEGIN 


OCAL 
RET_VALUE; 
I+ 
!' The inserted Line is low on the screen and the screen is full. Move a new Line onto 


! the bottom of the screen. This will require scrolling the top of the screen up one 
and having a new top Line. 


IF .EDT$$G_TI_SCROLL 
THEN 


BEGIN 
+ 
We have scrolling regions, so we can avoid repainting the bottom of the screen. 


ag ! Scroll up 
VALUE = 1; ' Paint this Line and continue 


t+ 
! We do not have scrolling regions, we must repaint the bottom of the screen. 
! Make sure the message area is blank, since otherwise we may scroll a message 
into the text area. 

BEGIN 


LOCAL 
SAV_CS_LN; 


EDTSS$G_MSGFLG = 0; 
AV_CS"LN = .EDT$$G_CS_LNO; 


'¢ 
: Now scroll the whole screen up by one. 


EDTSS$SC_POSCSIF (.EDT$$G_MESSAGE_LINE + 1, 0); 
EDTSSFMT_LIT (UPLIT (BYTE (ASC_K"LF)), 1); 
? 


Arrange to repaint all Lines below the deleted Line. 
; EDTS$SC_REPAINT (.SCRPTR, .EDTSSA_LST_SCRPTR, 0, 255, 1); 


F 16 
SCRUPDATE = update the screen 16-Se 
T.LI1 14-Se 


EDTSSCRUPDATE €EDTS 1984 01:43: AX-11 Bliss-32 V4.0-74 
104-000 INSERT_LINE = insert a Line on the screen - att 7 ete: EDT .SRCISCRUPDAYE.OL I: 

Mey pe} VALUE = 0; ! Start a new pass 

3 5 

91 4 

38 9 Mark the top Line for repaint since it is moving off the screen. 

94 EDTSSSC_REPAINT (.EDTSSA_TOP_SCRPTR, .EDTSSA_TOP_SCRPTR, 0, 255, -1); 

95 es - EDTSSA_TOP_SCRPTR = .EDTSSA_TOP_SCRPTR CSCR_AxT_CINE); 

37 5 ; Adjust the record number of the top Line. 

ss : 

00 Bek IF ((.,EDTSSA_TOP_SCRPTR CSCR_LINE_IDX] EQL 0) AND ' 

91 86 y{ Cc EDTSSA_TOP_SCRPTR SCR_EDIT_FLAGS) AND SCR_EDIT_DELLN) EQL 0)) 

08 -OLD_TOP_RECNO = ..OLD_TOP_RECNO + 1; 


ar 


RETURN (.RET_VALUE); 
END 


SSNS 


UNO OONOuULWwN—oO 


LOC 


DWDONAOULWN—O 


‘ 
87 
87 
i 
87 


AL 
RET_VALUE; 
1+ 
! The inserted Line is high on the screen, or the screen is not full. 
Scroll the bottom of the screen down. 
IF .EDT$$G_TI_SCROLL 
THEN 
a BEGIN 
We have scrolling regions, so we do not have to repaint the top of the screen. 


IF (.EDT$$G_TI_EDIT) 
S THEN 


: Use VT102 edit feature 


—O0oe 


BEG! 
D 


EDTS LNO 
EDTS 


0); 
G (ZCHAR’ (ASC_K_ESC), ‘CL')), 3); 


Ss NOu es 


N 
$SC_POS 
SFMT_LI 


SIF 
(U 


2n 


C C (, 
MT_LIT (UPLI 


wr 


ELSE 
BEGIN 
'¢ 


Simulate edit feature 


EDTSSSC_S 


ETSC NO, .EDT$$G_SCR_LNS); 
EDTS$S¢—POSCS 05; 


L 
CHAR’ (ASC_K_ESC), '"M')), 2): ! Scroll down 


a“ T 
crm 


FBR MUI BE BUTE BBB BANANA AAAI AAI AIA AIA BAIA AAA AAA 

m 
- 
“ 
m 

@ 

m 

o 

— 

2 


PUNO Oe WO eUs 


horn, 


RET_VALUE = 1; ! Repaint this Line and continue 


16 
EDTSSCRUPDATE EDTSSCRUPDATE - update the screen 18-3¢ 1984 01:43: AX-11 Bliss-32 V4.0-74 Page 
704-000 INSERT_LINE = insert a line on the screen 1 73007138 93:32:88 EDT SREISCRUPBAYE OL 144 . (3 
> 2345 913 ‘ END 
; $ 914 ELSE 
; Biz ? om BEGIN 
: 5 319 4 i This is a terminal without scrolling regions. If the inserted Line is high on the screen 
; 2350 318 4 ! scroll down then repaint from the beginning of the screen to this point. If the inserted 
; 5 333 2 } Line is low on the screen just repaint from here to the bottom of the screen. 
; 921 4 
; 2354 9 ; 5 IF (.EDT$$G_CS_LNO LSS (.EDT$$G_BOT_LINE/2)) 
; 2355 .] 4 THEN 
; 23 3 : mi BEGIN 
: 2358 9 § i The inserted Line is high on the screen. Scroll down and repaint the part of the screen 
; 23 > : above the inserted Line. 
: 2361 3 : EDTSS$SC_POSCSIF (0, 0); 
; é 931 IF (.EDT$$G_TI_TYP EQL TERM_VTS2) . | 
3 2365 338 EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C'I')), 2) 
; 309 336 EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C'M')), 2); 
8 BBE, 
; 237 938 ! Make sure the message area is blank, 
; M4 +14 since we may have moved text into the message area. 
: 378 g41 6 BEGIN 
: 2375 308 & LOCAL 
: 517 266 6 SAV_CS_LN; 
: 2378 246 6 EDTSS$G_MSGFLG = 0; 
; 39 947 6 SAV_CS-LN = .EDT$$G_CS_LNO; 
; 2380 948 6 EDTS$G-CS_LNO = .EDT$$G_SCR_LNS; 
; 1 949 6 EDTSSSC_ERAALL (); 
; Be 950 $ EDT$$G_CS_LNO = .SAV_CS_LN; 
; Be 33) ~ END; 
: $386 958 : ; Now mark the top of the screen to be repainted. 
; 369 955 2 . EDTS$SC "yy (.EDTSSA_TOP_SCRPTR, .SCRPTR, 0, 255, 1); 
: 308 928 2 RET_VALOE = 0; ! Start a new update pass 
: 9 95 ND 
: 2390 328 4 ELSE 
; $95 323 > BEGIN 
: 38 Be The inserted Line is low on the screen. Just repaint the inserted Line and all lower Lines. 
3 2395 368 ; EDTS$SC REPAINT (.SCRPTR, .EDTSSA_LST_SCRPTR, 0, 255, 1); 
3 964 5 RET_VALOE = 0; “Start a new pass 
3 3 965 ? ; 
; 4 969 ; END; 
: 2401 369 '¢ 


H 16 
EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 P 
04-000 INSERT_LINE = insert a Line on the screen 19-800- 1382 93:52:88 YeDT SRC SCRUPDATE.BLI; wat (3 
; rt. 370 ; If the bottom Line will move off the screen, arrange to repaint it if it should move back on. 
: 24 97 
; is $18 3 i aa teil natal NEQA 0) AND (.EDTS$G_BOT_LINE GEQ (.EDTS$$G_SCR_LNS - 1))) 
; 49 975 4 BEGIN 
H rts arg 4 EDTSSSC_REPAINT (.EDTS$A_BOT_SCRPTR pEDTeeA BOT_SCRPTR, 0, 255, 0); 
3 26 977 4 EDTS$A_BOT_SCRPIR = .EDTS$A_BOT_SCRPTR CSCR_PRV_CINEJ; 
3; 2410 are END; 
: Sti 360 3 14 
4 418 3 1 The bottom Line may be lower on the screen. It doesn't matter much if EDT$$G_BOT_LINE is too large. 
5 2615 88 3 EDT$$G_BOT_LINE = .EDTS$$G_BOT_LINE + 1; 
: ret 984 RETURN (.RET_VALUE) ; 
: $ti8 386 _ 
3 2419 987 1 END; ! of routine INSERT_LINE 


011AB -—BLKB 1 
00 00 00 OA O11AC P.AAK: .ASCII <10><0><0><0> : 
OA 01180 P.AAL: .BYTE 10 3 

01181 BLKB 3 
00 4C 5B 1B 01184 P.AAM: .ASCII <27>\~EL\<0> : 
00 00 4D 18 01188 P.AAN: .ASCII <27>\M\<0><0> : 
49 1B 011BC P.AAO: .BYTE » Fa j 

aa -BLKB 

4D 1B 011CO P.AAP: .BYTE fo oF : 


~-EXTRN EDTSS$SC_ERATOEOL 


OFFC 00000 INSERT_LINE: 
«WORD 2686 


0 Save R2,R3,R4 3 
5B 000000006 00 9€ 0000 MOVAB EDTSSFMT_LIT, R14 ; 
5a 000000006 00 9E 000 MOVAB EDT$$G_BOT_LINE, R10 ; 
59 00 900006 00 9E 00010 MOVAB EDTSSA-TOP“SCRPTR, RO : 
38 000000006 00 9€E 00017 MOVAB EDTS$G™SCRTLNS, R& : 
57 00 900006 00 9€ OO1E MOVAB EDTSSSC_REPAINT, R7 : 
36 000 6 0G 99 9E 900 MOVAB EDTS$S$SC~POSCSIF. R6 : 
55 000000006 9 00 g MOVAB €EDT$$G_CS_LNO, R5 ; | 
54 04 AC DO 000 MOVL SCRPTRT R& > 2775 | 
52 2 009 00 7 MOVL  4(R4), NXT_SCRPTR : | 
07 B BNEQ © 1$ : 2776 
000000006 00 9 FB 909 CALLS #0, EDTSSINTER ERR : 
21 OD A2 E1 00044 1$: C #2, 13(NXT_SCRPTR), 2$ : g778 
1 bp 49 PUSHL # : 2785 | 
7E FF 8F 9A 0004B MOVZBL #255, (SP) : | 
D4 OO04F CLRL = (SP§ ; 
DD 1 PUSHL  NXT_SCRPTR : 
67 ¢ tB ; CACS BS, EDTSSSC_REPAINT ; | 
be CLRL 30s = ¢ §P) ‘ : 2790 | 
DD A PUSHL EDTS$$G cs LNO F 
66 FB C CALLS #2, EDT$$SC_POSCSIF : 
000000006 00 FB OO05F CALLS #0. EDT$S$SC~ERATOEOL > 2791. 


50 000000006 


7E 
000000006 


000000006 


7E 000000006 


EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 
TO e000 INSERT LINE = insert a line on the screen 


50 01 
8 000000006 
1 000000006 


68 
00 


FF3B 


000000006 


oo ooowu 
oo movin 


FFOE 


a & 


FF 


A 
5 
5 
1 
5 
5 
2 
1 
F 
2 
1 
1 
0 
3 
8 
0 
2 
E 
1 
2 
1 
F 
2 
1 
4 
000000006 ? 


; 
5 
; 
6 
: 
5 
0 
; 
Q 
7E FF | 


: 
: 


WOoworococ —-— 
~- Ww ~ 
rw wn 


ROS *OOS NST $9 NOS NOOO NIOOMW 9 SFT IT9TOFNOoVTg 
uM 
bed 


so 
PUD OD —L£OWDWCO LS -O8 OS FO Ff NO" —" 0" OOO FO 
COOCOCOCSCSOOOSOSSOSSOOSOSOSSOSOSOSOSOSSOOOSOSOSOSOOSOOOSOOOOSOOOSoOoOO 
an 
bad 


WwMWRMMNMMMMMMOCOIOOOOOWWWWr>r>r>>r>r>}Y Oo 
SRF RoOMDHOS-UI—D DOWD S UNOS NOS io MD OO rR DOaoe Go ooo ote 


Ot tt dd I II I OOOO OOOO OOCOCOOCOCOCOSCSCGDOOOGOGCOOCOSCOCOOOOOOOOOOOOSCoOO 


OOOoOooooooo 


me SO 


GN 
ad 


soc188e S48 : EDT .SRCISCRUPDAYE-BL1;1 


» RO 


$ 
$$G_CS_LNO 
DT$$G_CS_LNO, -(SP) 
DT$$SC_SETSCLLREG 
G_CS_LNO 
DTS$SC_POSCSIF 
DTSSFMT_LIT 
_VALUE 
G Roeerig 
s$¢ scR- UNS. aforTsse. CS_LNO 
EpT$sst__E 
CS_LN, EDTSSG° CS_LNO 
DT 
DT 


$ 
a 
vse MESSAGE LINE, -(SP) 


e € 
fe. EDTS$SC_POSCSIF 


cM EDISSFMT_LIT 
We55, ~(SP) 
EDTS$SA_LST_SCRPTR 
#5 EDTS$SC_REPAINT 


RE ET_V 
Wis 53 
1255 =(SP) 


P 
EDTSSA_TOP_SCRPTR, RO 
(RO), EDTS$A_TOP SCRPTR 
ue TOP_SCRPTR; RO 


13(RO) 
soto. TOP_ decnd 


MoMMONOPOPNOPY 


ARERR RON 
OVUESWN eI 


Page (| 


; 2792. 
; 2802 | 


817) 
804 


18 : AX-11 Bliss-32 V4.0-74 
1b-S00-1 4 93:32: MEREISCRUPDAYE OL If, 
—- GREE GRUTDATE yaa pode ong F screen 1 me Hat 7 94:33:28 aes 
° 3 j A = tee fpfsse r1_eD1T, 9$ 
af 000000006 00 c9 1¢8 BLBC {ss 
pp i : atts #2, EDTS$$SC_POSCSIF 
ne fp 1 PUSHL # 
FEB6 OCF BP 1 PUSHAB PAN 
} bb i ‘ 9$: BUSHEL EDTS$$G_SCR_LNS 
AR BGR steer serscune 
000000006 00 FB O014 CALLS #2 " 
a eee 
” a3 BD 18 PUSHL # 
FEAO CF BP HE PUSHAB BAAN ssrut - 
$8 Ge BB Sieg 108: nour’ #1, RET_VALUE 
ad 4 " O15 BRB les akc 
Ds 61 5 ong Sivt3 ae. EDTS86_80T_LINE, RO 
$ g ct Bote CMPL = R23, RO 
- ” 4 rt boi? BGEG M48 
OS £6 do1ep its #2. EDTS$SC_POSCSIF 
§¢ 85 be ett CMPL EDTS$G_TI_TYP, 
01 000000006 D} ans ia ize 
Oe OO Ott PUSHAB P. AAO 
FE7D CF 9F 00179 pus PA 
8 DD Oter 128: PUSHL #2 
2 DD OO17F 12$: PUSHL 2 
cosa H- $0185 : CALLS #2, EDTSSFMT_LIT 
- 06 ie $183 — CLRL EDISSG_MSGrLS sea a 
BRR GRUB, Set EEC, 
% 69 FB 001% Rout SA Lee EDT$$G_CS_LNO 
000000006 00 09 FB 00194 rout chit. 
4 BR 8 105 MOVZBL #255, -(SP) 
" ot De 8 ine CLRL = (SPS 
Fo BD Brae PUSH EDISSA_TOP_SCRPTR 
AY as Ootae 148: BO SHL i 
F BF eg iA * MOVZBL W255, -(SP) 
5 85 18e SUSHIL  EDTSSA_LST_SCRPTR 
sree ¢ bb 1BA atk: a DTS$SC_REPAINT 
i S BR Slee ak, | howe” catsaa BOT_SCRPTR, RI 
$f 000000006 00 1BF 16$: ov Fo a 
; ies eters #1, EDTS$G_SCR LNs, RO 
” i eh ‘i \fe CMPL rots G_BOT“LINE, R 
D 19 OOICE BLSS ie 
7E D4 00101 CL in 
7E FF 8F 9A 00103 MOVZBL #285 


2 


1 


-32 V4.0-74 
UPDATE .BLI; 


EDTSSCRUPDATE = u 


EDTSSCRUPDATE 


v04-000 


pdate the screen 


INSERT_LINE = insert a Line on the screen 


0 
CRPTR 


BOT SCRPTR, R 
$A_BOT_§ 
INE 


DTS$$SC_REPAINT 
DTS 
-BOT_L 


A 
E 

G 

0 


MOVL 
RET 


woaomoowuoosy 
ananaouQanaano 


We MOO art 
KMmmnoowuouown 


50 000000006 
00 
50 


67 


000000006 


Roytine Base: _EDTSCODE + 11C2 


500 bytes, 


: Routine Size: 


* 


EDTSSCRUPDATE EDTSSCRUPDATE = update the screen 18-Sep 343: AX-11 Bliss-32 V4.0-74 
042000 EDT DTSSLOAD _SCRUPDATE = load this module into mem 1 =3007 1388 93: 224: ‘8 EDT. SRCISCRUPDAT YecbL isi 


! Load this module into memory 


3 n 1 2 } ZSBTTL "EDTSSLOAD_SCRUPDATE = load this module into memory’ 
: 24 5 4.44 1 GLOBAL ROUTINE EDTSSLOAD_SCRUPDATE 
: 2424 991 1 : NOVALUE = 

3; 2425 836 1 

: 24 $ 95 1 !++ 

: ri 338 ! FUNCTIONAL DESCRIPTION: 

3 24 § 44 ii routine has no function. It exists as an entry point so that 
; 2450 997 1: EDT SF IXNOTRUNC_NOOVERLAY can call this module back into memory before 
: 2431 44 1 returning to it. 

: 24 ¢ 999 1 

: : 001 ' FORMAL PARAMETERS: 

3: 2435 Mt 1 NONE 

: 24 003 1 

3 2437 4 1 ' IMPLICIT INPUTS: 

; 2438 05 1! 

3: 2439 Boe 1/ NONE 

: 2440 007 1: 

: 2441 008 1! IMPLICIT OUTPUTS: 

3 244 009 1! 

3: 244 010 1: NONE 

: 2444 011 1! 

3 2445 Big 1 § ROUTINE VALUE: 

3 244 015 1! 

> 2446 014 1! NONE 

3: 2448 3015 1! 

3 2449 016 1 ! SIDE EFFECTS: 

3; 2450 017 1! 

3: 2451 018 1: NONE 

; 245 019 1! 

3: 245 020 1 i- 

3 2454 021 1 

3: 2455 bs6 B BEGIN 

3; 2456 302 0 

: 2457 3024 1 END; 


0000 00000 
04 00002 


; Routine Size: 3 bytes, Routine Base: _EDTSCODE + 1386 


; sees $08? 1 
3 2459 026 1 !<BLF/PAGE> 


! of routine EDTS$LOAD_SCRUPDATE 


a EDTSSLOAD_SCRUPDATE, Save nothing 


Page 70. 
. (6) 


Library Statistics 


; cconnmae Symbols cooceres Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(EDT.SRCJEDT.L32;1 377 61 16 40 00:00.2 

: _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

: COMMAND QUALIFIERS 

3 PISS arte TEL. INE TIM, .OP TIAL ES DASTRALEBALE AL LSe4, ISR SCOMPOATE /08 90818 SERUPOATE MSRC$:SCRUPDATE .BLI/UPDATE=(ENH$:S 
Size: 4988 cgde + 61 data bytes 
Run Time: 0 3 


Elapsed Time: 04:44.2 
Lines/CPU Min: 907 
ononeel ern) 5067 
paery Used: 896 pages 
Compilation Complete 


M16 
POurBO0 Te EDTEREGAD SCRUPDATE’cLoed Shis’module into mem 1eeep-iond Sasdeses «| PORT SePheRcae aye: 8r749 Poce of 
im st 1 END ! of module EDTSSCRUPDATE . 
: 266 § 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 5049 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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